#!./perl
chdir 't' if -d 't';
print "1..0 # Skip: not perlio\n";
exit 0;
}
}
my $b;
ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails'); ok( open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output'); ok( (print $fh $a), "print to output file");
ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
is($a, $b, 'compare original data with filtered version');
{
# Find fd number we should be using
ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail');
# Now open normally again to see if we get right fileno
is($fd2,$fd,"Wrong fd number after failed open");
is($data,"Hello\n","File clobbered by failed open");
{
}
ok( ! open($fh,">via(Incomplete::Module)", $tmp), 'open via Incomplete::Module will fail'); is( $warnings, "", "don't warn about unknown package" );
ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail'); is( $warnings, "", "don't warn about unknown package" ); }
is( $obj, 'Foo', 'search for package Foo' ); is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
}