9 unless (find PerlIO::Layer 'perlio') {
10 print "1..0 # Skip: not perlio\n";
17 use Test::More tests => 13;
20 my $a = join("", map { chr } 0..255) x 10;
23 BEGIN { use_ok('MIME::QuotedPrint'); }
25 ok( open($fh,">Via(MIME::QuotedPrint)", $tmp), 'open QuotedPrint for output');
26 ok( (print $fh $a), "print to output file");
27 ok( close($fh), 'close output file');
29 ok( open($fh,"<Via(MIME::QuotedPrint)", $tmp), 'open QuotedPrint for input');
30 { local $/; $b = <$fh> }
31 ok( close($fh), "close input file");
33 is($a, $b, 'compare original data with filtered version');
38 local $SIG{__WARN__} = sub { $warnings = join '', @_ };
42 # Find fd number we should be using
43 my $fd = open($fh,">$tmp") && fileno($fh);
47 ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
48 like( $warnings, qr/^Cannot find package 'Unknown::Module'/, 'warn about unknown package' );
50 # Now open normally again to see if we get right fileno
51 my $fd2 = open($fh,"<$tmp") && fileno($fh);
52 is($fd2,$fd,"Wrong fd number after failed open");
56 is($data,"Hello\n","File clobbered by failed open");
64 ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
65 is( $warnings, "", "don't warn about unknown package" );