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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#!./perl
BEGIN {
unless (-d 'blib') {
chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
keys %Config; # Silence warning
if ($Config{extensions} !~ /\bList\/Util\b/) {
print "1..0 # Skip: List::Util was not built\n";
exit 0;
}
}
}
use strict;
use Test::More tests => 21;
use Scalar::Util qw(openhandle);
ok(defined &openhandle, 'defined');
{
my $fh = \*STDERR;
is(openhandle($fh), $fh, 'STDERR');
is(fileno(openhandle(*STDERR)), fileno(STDERR), 'fileno(STDERR)');
}
{
use vars qw(*CLOSED);
is(openhandle(*CLOSED), undef, 'closed');
}
SKIP: {
skip "3-arg open only on 5.6 or later", 1 if $]<5.006;
open my $fh, "<", $0;
skip "could not open $0 for reading: $!", 2 unless $fh;
is(openhandle($fh), $fh, "works with indirect filehandles");
close($fh);
is(openhandle($fh), undef, "works with indirect filehandles");
}
SKIP: {
skip "in-memory files only on 5.8 or later", 2 if $]<5.008;
open my $fh, "<", \"in-memory file";
skip "could not open in-memory file: $!", 2 unless $fh;
is(openhandle($fh), $fh, "works with in-memory files");
close($fh);
is(openhandle($fh), undef, "works with in-memory files");
}
ok(openhandle(\*DATA), "works for \*DATA");
ok(openhandle(*DATA), "works for *DATA");
ok(openhandle(*DATA{IO}), "works for *DATA{IO}");
{
require IO::Handle;
my $fh = IO::Handle->new_from_fd(fileno(*STDERR), 'w');
skip "new_from_fd(fileno(*STDERR)) failed", 2 unless $fh;
ok(openhandle($fh), "works for IO::Handle objects");
ok(!openhandle(IO::Handle->new), "unopened IO::Handle");
}
{
require IO::File;
my $fh = IO::File->new;
$fh->open("< $0")
or skip "could not open $0: $!", 3;
ok(openhandle($fh), "works for IO::File objects");
close($fh);
ok(!openhandle($fh), "works for IO::File objects");
ok(!openhandle(IO::File->new), "unopened IO::File" );
}
SKIP: {
skip( "Tied handles only on 5.8 or later", 2) if $]<5.008;
use vars qw(*H);
package My::Tie;
require Tie::Handle;
@My::Tie::ISA = qw(Tie::Handle);
sub TIEHANDLE { bless {} }
package main;
tie *H, 'My::Tie';
ok(openhandle(*H), "tied handles are always ok");
ok(openhandle(\*H), "tied handle refs are always ok");
}
ok !openhandle(undef), "undef is not a filehandle";
ok !openhandle("STDIN"), "strings are not filehandles";
ok !openhandle(0), "integers are not filehandles";
__DATA__
|
