#!./perl
chdir 't' if -d 't';
print "1..0 # Skip: not perlio\n";
exit 0;
}
}
ok($io->open("io_utf8", ">:utf8"), "open >:utf8");
ok((print $io chr(256)), "print chr(256)");
ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
is(ord(<$io>), 256, "readline chr(256)");
}