6 unless (find PerlIO::Layer 'perlio') {
7 print "1..0 # Skip: not perlio\n";
17 my $russki = "koi8r$$";
19 if (open(GRK, ">$grk")) {
20 # alpha beta gamma in ISO 8859-7
21 print GRK "\xe1\xe2\xe3";
27 open(my $i,'<:encoding(iso-8859-7)',$grk);
29 open(my $o,'>:utf8',$utf);
31 print $o readline($i);
37 if (open(UTF, "<$utf")) {
38 # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3)
39 print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3";
46 open(my $i,'<:utf8',$utf);
48 open(my $o,'>:encoding(iso-8859-7)',$grk);
50 print $o readline($i);
56 if (open(GRK, "<$grk")) {
57 print "not " unless <GRK> eq "\xe1\xe2\xe3";
62 $SIG{__WARN__} = sub {$warn = $_[0]};
64 if (open(FAIL, ">:encoding(NoneSuch)", $fail1)) {
65 print "not ok 9 # Open should fail\n";
70 print "not ok 10 # warning is undef\n";
71 } elsif ($warn =~ /^Cannot find encoding "NoneSuch" at/) {
74 print "not ok 10 # warning is '$warn'";
77 if (open(RUSSKI, ">$russki")) {
78 print RUSSKI "\x3c\x3f\x78";
80 open(RUSSKI, "$russki");
81 binmode(RUSSKI, ":raw");
83 read(RUSSKI, $buf1, 1);
85 binmode(RUSSKI, ":encoding(koi8-r)");
87 read(RUSSKI, $buf2, 1);
88 my $offset = tell(RUSSKI);
89 if (ord($buf1) == 0x3c && ord($buf2) == 0x3f && $offset == 2) {
92 printf "not ok 11 # %#x %#x %d\n",
93 ord($buf1), ord($buf2), $offset;
97 print "not ok 11 # open failed: $!\n";
101 unlink($grk, $utf, $fail1, $russki);