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;