1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/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');
|
