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