Lines Matching refs:utf8
47 skip("no perlio, no :utf8", 1) unless (find PerlIO::Layer 'perlio');
50 $ENV{LC_ALL} = ' .utf8';
52 like( ${^OPEN}, qr/^(:utf8)?:utf8\0/,
77 skip("no perlio, no :utf8", 4) unless (find PerlIO::Layer 'perlio');
80 use open ':utf8';
81 open(O, ">utf8");
84 open(I, "<utf8");
85 is(ord(<I>), 0x100, ":utf8 single wide character round-trip");
104 open F, "<:utf8", "a";
126 "on :utf8 streams sysread() should work on characters, not bytes");
129 open G, ">:utf8", "b";
148 "on :utf8 streams syswrite() should work on characters, not bytes");
150 open G, "<:utf8", "b";
172 "checking syswrite() output on :utf8 streams by reading it back in");
186 1 while unlink "utf8";