#!/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');