Blob Blame History Raw
#!/usr/bin/perl -w
use strict;
use Test::More tests => 8;

# Basic sanity tests.
is(fileno(STDIN), 0, "STDIN fileno looks sane");
is(fileno(STDOUT),1, "STDOUT looks sane");

my $dummy = "foo";

ok(!defined(fileno($dummy)), "Non-filehandles shouldn't be defined.");


my $fileno = eval {
    use autodie qw(fileno);
    fileno(STDIN);
};

is($@,"","fileno(STDIN) shouldn't die");
is($fileno,0,"autodying fileno(STDIN) should be 0");

$fileno = eval {
    use autodie qw(fileno);
    fileno(STDOUT);
};

is($@,"","fileno(STDOUT) shouldn't die");
is($fileno,1,"autodying fileno(STDOUT) should be 1");

$fileno = eval {
    use autodie qw(fileno);
    fileno($dummy);
};

isa_ok($@,"autodie::exception", 'autodying fileno($dummy) should die');