source: trunk/essentials/dev-lang/perl/t/io/utf8.t@ 3184

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    unless (find PerlIO::Layer 'perlio') {
        print "1..0 # Skip: not perlio\n";
        exit 0;
    }
}

no utf8; # needed for use utf8 not griping about the raw octets

require "./test.pl";

plan(tests => 55);

$| = 1;

open(F,"+>:utf8",'a');
print F chr(0x100).'£';