Lines Matching refs:fileno
6 is(fileno(STDIN), 0, "STDIN fileno looks sane");
7 is(fileno(STDOUT),1, "STDOUT looks sane");
11 ok(!defined(fileno($dummy)), "Non-filehandles shouldn't be defined.");
14 my $fileno = eval {
15 use autodie qw(fileno);
16 fileno(STDIN);
19 is($@,"","fileno(STDIN) shouldn't die");
20 is($fileno,0,"autodying fileno(STDIN) should be 0");
22 $fileno = eval {
23 use autodie qw(fileno);
24 fileno(STDOUT);
27 is($@,"","fileno(STDOUT) shouldn't die");
28 is($fileno,1,"autodying fileno(STDOUT) should be 1");
30 $fileno = eval {
31 use autodie qw(fileno);
32 fileno($dummy);
35 isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die');