4 require Config; import Config;
5 unless ($Config{'useperlio'}) {
6 print "1..0 # Skip: PerlIO not used\n";
25 print "not " unless open($txtfh, ">:crlf", $txt);
28 print "not " unless open($binfh, ">:raw", $bin);
31 print "not " unless open($utffh, ">:utf8", $utf);
36 print "not " unless close($txtfh);
41 print "not " unless close($binfh);
44 print $utffh "foo\x{ff}\n";
45 print $utffh "bar\x{abcd}\n";
46 print "not " unless close($utffh);
49 print "not " unless open($txtfh, "<:crlf", $txt);
52 print "not " unless open($binfh, "<:raw", $bin);
55 print "not " unless open($utffh, "<:utf8", $utf);
58 print "not " unless <$txtfh> eq "foo\n" && <$txtfh> eq "bar\n";
61 print "not " unless <$binfh> eq "foo\n" && <$binfh> eq "bar\n";
64 print "not " unless <$utffh> eq "foo\x{ff}\n" && <$utffh> eq "bar\x{abcd}\n";
67 print "not " unless eof($txtfh);
70 print "not " unless eof($binfh);
73 print "not " unless eof($utffh);
76 print "not " unless close($txtfh);
79 print "not " unless close($binfh);
82 print "not " unless close($utffh);