Commit | Line | Data |
c0f790df |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | unless (-d 'blib') { |
5 | chdir 't' if -d 't'; |
6 | @INC = '../lib'; |
7 | require Config; import Config; |
8 | keys %Config; # Silence warning |
9 | if ($Config{extensions} !~ /\bList\/Util\b/) { |
10 | print "1..0 # Skip: List::Util was not built\n"; |
11 | exit 0; |
12 | } |
13 | } |
14 | } |
15 | |
cf083cf9 |
16 | use strict; |
17 | use vars qw(*CLOSED); |
18 | use Test::More tests => 4; |
c0f790df |
19 | use Scalar::Util qw(openhandle); |
20 | |
cf083cf9 |
21 | ok(defined &openhandle, 'defined'); |
c0f790df |
22 | |
23 | my $fh = \*STDERR; |
cf083cf9 |
24 | is(openhandle($fh), $fh, 'STDERR'); |
c0f790df |
25 | |
cf083cf9 |
26 | is(fileno(openhandle(*STDERR)), fileno(STDERR), 'fileno(STDERR)'); |
c0f790df |
27 | |
cf083cf9 |
28 | is(openhandle(*CLOSED), undef, 'closed'); |
c0f790df |
29 | |