8 unless (PerlIO::Layer->find('perlio')){
9 print "1..0 # Skip: PerlIO required\n";
12 if (ord("A") == 193) {
13 print "1..0 # Skip: EBCDIC porting needed\n";
20 # Some tests for UTF8 and format/write
22 our ($bitem1, $uitem1) = ("\x{ff}", "\x{100}");
23 our ($bitem2, $uitem2) = ("\x{fe}", "\x{101}");
24 our ($blite1, $ulite1) = ("\x{fd}", "\x{102}");
25 our ($blite2, $ulite2) = ("\x{fc}", "\x{103}");
26 our ($bmulti, $umulti) = ("\x{fb}\n\x{fa}\n\x{f9}\n",
27 "\x{104}\n\x{105}\n\x{106}\n");
31 my ($out, $format, $expect, $name) = @_;
32 eval "format $out =\n$format.\n"; die $@ if $@;
33 open $out, '>:utf8', 'Uni_write.tmp' or die "Can't create Uni_write.tmp";
35 close $out or die "Could not close $out: $!";
37 open UIN, '<:utf8', 'Uni_write.tmp' or die "Can't open Uni_write.tmp";;
38 my $result = do { local $/; <UIN>; };
41 is($result, $expect, $name);
44 fmwrtest OUT1 => <<EOFORMAT, <<EOEXPECT, "non-UTF8 literal / UTF8 item (1)";
54 fmwrtest OUT2 => <<EOFORMAT, <<EOEXPECT, "non-UTF8 literal / UTF8 item (2)";
64 fmwrtest OUT3 => <<EOFORMAT, <<EOEXPECT, "UTF8 literal / non-UTF8 item (1)";
74 fmwrtest OUT4 => <<EOFORMAT, <<EOEXPECT, "UTF8 literal / non-UTF8 item (2)";
84 fmwrtest OUT5 => <<EOFORMAT, <<EOEXPECT, "non-UTF8 literal / UTF8 multiline";
94 fmwrtest OUT6 => <<EOFORMAT, <<EOEXPECT, "UTF8 literal / non-UTF8 multiline";
104 unlink 'Uni_write.tmp';