This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Continued Chinese puzzles from Autrijus.
[perl5.git] / ext / Encode / t / TW.t
1 BEGIN {
2     chdir 't' if -d 't';
3     @INC = '../lib';
4     require Config; import Config;
5     if ($Config{'extensions'} !~ /\bEncode\b/) {
6       print "1..0 # Skip: Encode was not built\n";
7       exit 0;
8     }
9     unless (find PerlIO::Layer 'perlio') {
10         print "1..0 # Skip: PerlIO was not built\n";
11         exit 0;
12     }
13     if (ord("A") == 193) {
14         print "1..0 # Skip: EBCDIC\n";
15         exit 0;
16     }
17     $| = 1;
18 }
19
20 use strict;
21 use Test::More tests => 17;
22 use Encode;
23
24 use_ok('Encode::TW');
25
26 # Since JP.t already test basic file IO, we will just focus on
27 # internal encode / decode test here. Unfortunately, to test
28 # against all the UniHan characters will take a huge disk space,
29 # not to mention the time it will take, and the fact that Perl
30 # did not bundle UniHan.txt anyway.
31
32 # So, here we just test a typical snippet spanning multiple Unicode
33 # blocks, and hope it can point out obvious errors.
34
35 run_tests('Basic Big5 range', {
36     'utf'       => (
37 24093.39640.38525.20043.33495.35028.20846.65292.
38 26389.30343.32771.26352.20271.24248.65108.
39 25885.25552.35998.20110.23391.38508.20846.65292.
40 24799.24218.23493.21566.20197.38477.65108
41     ),
42
43     'big5'      => (join('',
44 '«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
45 'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q',
46     )),
47
48     'big5-hkscs'=> (join('',
49 '«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
50 'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q',
51     )),
52
53     'cp950'     => (join('',
54 '«Ò°ª¶§¤§­]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
55 'Äá´£­s¤_©s³µ¤¼¡A±©©°±G§^¥H­°¡Q',
56     )),
57 });
58
59 run_tests('Hong Kong Extensions', {
60     'utf'       => (
61 24863.35613.25152.26377.20351.29992.32.80.101.114.108.32.
62 22021.26379.21451.65292.32102.25105.21707.22021.
63 25903.25345.12289.24847.35211.21644.40723.21237.
64 22914.26524.32232.30908.26377.20219.20309.37679.28431.
65 65292.35531.21578.35380.25105.21707.12290
66     ),
67
68     'big5-hkscs'        => join('',
69 '·PÁ©Ҧ³¨Ï¥Î Perl \9dïªB¤Í¡Aµ¹§Ú\92]\9dï¤ä«ù¡B·N¨£©M¹ªÀy',
70 '¦pªG½s½X¦³¥ô¦ó¿ùº|¡A½Ð§i¶D§Ú\92]¡C'
71     ),
72 });
73
74 sub run_tests {
75     my ($title, $tests) = @_;
76     my $utf = delete $tests->{'utf'};
77
78     # $enc = encoding, $str = content
79     foreach my $enc (sort keys %{$tests}) {
80         my $str = $tests->{$enc};
81
82         is(Encode::decode($enc, $str), $utf, "[$enc] decode - $title");
83         is(Encode::encode($enc, $utf), $str, "[$enc] encode - $title");
84
85         my $str2 = $str;
86         my $utf8 = Encode::encode('utf-8', $utf);
87
88         Encode::from_to($str2, $enc, 'utf-8');
89         is($str2, $utf8, "[$enc] from_to => utf8 - $title");
90
91         Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
92         is($utf8, $str,  "[$enc] utf8 => from_to - $title");
93     }
94 }