9 unless (find PerlIO::Layer 'perlio') {
10 print "1..0 # Skip: not perlio\n";
17 use Test::More tests => 11;
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 '', @_ };
41 ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
42 like( $warnings, qr/^Cannot find package 'Unknown::Module'/, 'warn about unknown package' );
46 ok( ! open($fh,">Via(Unknown::Module)", $tmp), 'open Via Unknown::Module will fail');
47 is( $warnings, "", "don't warn about unknown package" );