Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (25 sloc) 0.466 kb
use strict;
use Test::More;
use Plack::Util;
{
open my $fh, __FILE__;
ok Plack::Util::is_real_fh($fh);
}
{
my $fh = IO::File->new(__FILE__);
ok Plack::Util::is_real_fh($fh);
}
{
open my $fh, "<", "/dev/null";
ok ! Plack::Util::is_real_fh($fh);
}
{
open my $fh, "<", \"foo";
ok ! Plack::Util::is_real_fh($fh);
}
{
use IO::File;
my $fh = IO::File->new("/dev/null");
ok ! Plack::Util::is_real_fh($fh);
}
done_testing;
Jump to Line
Something went wrong with that request. Please try again.