Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
00version.t	611 B	-r--r--r--	2014-12-27 11:49
any-all.t	895 B	-r--r--r--	2014-12-27 11:49
blessed.t	1.27 KB	-r--r--r--	2014-12-27 11:49
dualvar.t	3.57 KB	-r--r--r--	2014-12-27 11:49
first.t	3.76 KB	-r--r--r--	2014-12-27 11:49
getmagic-once.t	823 B	-r--r--r--	2014-12-27 11:49
isvstring.t	648 B	-r--r--r--	2014-12-27 11:49
lln.t	1.34 KB	-r--r--r--	2014-12-27 11:49
max.t	1.3 KB	-r--r--r--	2014-12-27 11:49
maxstr.t	717 B	-r--r--r--	2014-12-27 11:49
min.t	1.29 KB	-r--r--r--	2014-12-27 11:49
minstr.t	716 B	-r--r--r--	2014-12-27 11:49
multicall-refcount.t	263 B	-r--r--r--	2014-12-27 11:49
openhan.t	2.42 KB	-r--r--r--	2014-12-27 11:49
pair.t	2.96 KB	-r--r--r--	2014-12-27 11:49
product.t	1.74 KB	-r--r--r--	2014-12-27 11:49
proto.t	1.44 KB	-r--r--r--	2014-12-27 11:49
readonly.t	1.12 KB	-r--r--r--	2014-12-27 11:49
reduce.t	4.4 KB	-r--r--r--	2014-12-27 11:49
refaddr.t	1.96 KB	-r--r--r--	2014-12-27 11:49
reftype.t	1.38 KB	-r--r--r--	2014-12-27 11:49
shuffle.t	626 B	-r--r--r--	2014-12-27 11:49
stack-corruption.t	630 B	-r--r--r--	2014-12-27 11:49
sum.t	1.68 KB	-r--r--r--	2014-12-27 11:49
sum0.t	204 B	-r--r--r--	2014-12-27 11:49
tainted.t	845 B	-r--r--r--	2014-12-27 11:49
weak.t	2.82 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./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__