4 unless(grep /blib/, @INC) {
8 unless ($] >= 5.008 and find PerlIO::Layer 'perlio') {
9 print "1..0 # Skip: not perlio\n";
14 require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
24 ok($io->open("io_utf8", ">:utf8"), "open >:utf8");
25 ok((print $io chr(256)), "print chr(256)");
29 ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
30 is(ord(<$io>), 256, "readline chr(256)");
34 1 while unlink "io_utf8";