io_utf8.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe#!./perl
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe
c10c16dec587a0662068f6e2991c29ed3a9db943Richard LoweBEGIN {
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe chdir 't' if -d 't';
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe @INC = '../lib';
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe unless (find PerlIO::Layer 'perlio') {
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe print "1..0 # Skip: not perlio\n";
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe exit 0;
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe }
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe}
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankovrequire "./test.pl";
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankovplan(tests => 5);
5dbfd19ad5fcc2b779f40f80fa05c1bd28fd0b4eTheo Schlossnagle
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoremy $io;
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankov
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweuse_ok('IO::File');
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankov
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe$io = IO::File->new;
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankov
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweok($io->open("io_utf8", ">:utf8"), "open >:utf8");
a9478106a12424322498e53cf7cd75bd8a4d6004Yuri Pankovok((print $io chr(256)), "print chr(256)");
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweundef $io;
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe$io = IO::File->new;
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweok($io->open("io_utf8", "<:utf8"), "open <:utf8");
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweis(ord(<$io>), 256, "readline chr(256)");
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Loweundef $io;
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe
c10c16dec587a0662068f6e2991c29ed3a9db943Richard LoweEND {
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe 1 while unlink "io_utf8";
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe}
c10c16dec587a0662068f6e2991c29ed3a9db943Richard Lowe