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