Commit | Line | Data |
9ba8831b |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | unless (find PerlIO::Layer 'perlio') { |
7 | print "1..0 # Skip: not perlio\n"; |
8 | exit 0; |
9 | } |
10 | } |
11 | |
08efa405 |
12 | print "1..8\n"; |
13 | |
8e86646e |
14 | my $grk = "grk$$"; |
15 | my $utf = "utf$$"; |
16 | |
17 | if (open(GRK, ">$grk")) { |
18 | # alpha beta gamma in ISO 8859-7 |
19 | print GRK "\xe1\xe2\xe3"; |
20 | close GRK; |
21 | } |
22 | |
23 | { |
24 | use Encode; |
25 | open(my $i,'<:encoding(iso-8859-7)',$grk); |
26 | print "ok 1\n"; |
27 | open(my $o,'>:utf8',$utf); |
28 | print "ok 2\n"; |
29 | print $o readline($i); |
30 | print "ok 3\n"; |
31 | close($o); |
32 | close($i); |
33 | } |
34 | |
35 | if (open(UTF, "<$utf")) { |
36 | # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3) |
37 | print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3"; |
38 | print "ok 4\n"; |
39 | close $grk; |
40 | } |
41 | |
42 | { |
43 | use Encode; |
44 | open(my $i,'<:utf8',$utf); |
45 | print "ok 5\n"; |
46 | open(my $o,'>:encoding(iso-8859-7)',$grk); |
47 | print "ok 6\n"; |
48 | print $o readline($i); |
49 | print "ok 7\n"; |
50 | close($o); |
51 | close($i); |
52 | } |
53 | |
54 | if (open(GRK, "<$grk")) { |
55 | print "not " unless <GRK> eq "\xe1\xe2\xe3"; |
56 | print "ok 8\n"; |
57 | close $grk; |
58 | } |
59 | |
60 | END { |
61 | unlink($grk, $utf); |
62 | } |