3 use Test::More tests => 8;
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.");
15 use autodie qw(fileno);
19 is($@,"","fileno(STDIN) shouldn't die");
20 is($fileno,0,"autodying fileno(STDIN) should be 0");
23 use autodie qw(fileno);
27 is($@,"","fileno(STDOUT) shouldn't die");
28 is($fileno,1,"autodying fileno(STDOUT) should be 1");
31 use autodie qw(fileno);
35 isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die');