Lines Matching full:fh
12 my $fh = \*STDERR;
13 is(openhandle($fh), $fh, 'STDERR');
26 open my $fh, "<", $0;
27 skip "could not open $0 for reading: $!", 2 unless $fh;
28 is(openhandle($fh), $fh, "works with indirect filehandles");
29 close($fh);
30 is(openhandle($fh), undef, "works with indirect filehandles");
36 open my $fh, "<", \"in-memory file";
37 skip "could not open in-memory file: $!", 2 unless $fh;
38 is(openhandle($fh), $fh, "works with in-memory files");
39 close($fh);
40 is(openhandle($fh), undef, "works with in-memory files");
49 my $fh = IO::Handle->new_from_fd(fileno(*STDERR), 'w');
50 skip "new_from_fd(fileno(*STDERR)) failed", 2 unless $fh;
51 ok(openhandle($fh), "works for IO::Handle objects");
58 my $fh = IO::File->new;
59 $fh->open("< $0")
61 ok(openhandle($fh), "works for IO::File objects");
62 close($fh);
63 ok(!openhandle($fh), "works for IO::File objects");