1#!/usr/bin/perl -w 2use strict; 3use Test::More tests => 8; 4 5# Basic sanity tests. 6is(fileno(STDIN), 0, "STDIN fileno looks sane"); 7is(fileno(STDOUT),1, "STDOUT looks sane"); 8 9my $dummy = "foo"; 10 11ok(!defined(fileno($dummy)), "Non-filehandles shouldn't be defined."); 12 13 14my $fileno = eval { 15 use autodie qw(fileno); 16 fileno(STDIN); 17}; 18 19is($@,"","fileno(STDIN) shouldn't die"); 20is($fileno,0,"autodying fileno(STDIN) should be 0"); 21 22$fileno = eval { 23 use autodie qw(fileno); 24 fileno(STDOUT); 25}; 26 27is($@,"","fileno(STDOUT) shouldn't die"); 28is($fileno,1,"autodying fileno(STDOUT) should be 1"); 29 30$fileno = eval { 31 use autodie qw(fileno); 32 fileno($dummy); 33}; 34 35isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die'); 36