6 unless (find PerlIO::Layer 'perlio') {
7 print "1..0 # Skip: not perlio\n";
22 ok($io->open("io_utf8", ">:utf8"), "open >:utf8");
23 ok((print $io chr(256)), "print chr(256)");
27 ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
28 is(ord(<$io>), 256, "readline chr(256)");
32 1 while unlink "io_utf8";