xref: /openbsd/gnu/usr.bin/perl/cpan/Encode/t/at-tw.t (revision 4bdff4be) 
1BEGIN {
2    if (! -d 'blib' and -d 't'){ chdir 't' };
3    unshift @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
20use strict;
21use Test::More tests => 17;
22use Encode;
23
24no utf8; # we have raw Chinese encodings here
25
26BEGIN {
27    use_ok('Encode::TW');
28}
29
30# Since JP.t already tests basic file IO, we will just focus on
31# internal encode / decode test here. Unfortunately, to test
32# against all the UniHan characters will take a huge disk space,
33# not to mention the time it will take, and the fact that Perl
34# did not bundle UniHan.txt anyway.
35
36# So, here we just test a typical snippet spanning multiple Unicode
37# blocks, and hope it can point out obvious errors.
38
39run_tests('Basic Big5 range', {
40    'utf'	=> (
4124093.39640.38525.20043.33495.35028.20846.65292.
4226389.30343.32771.26352.20271.24248.65108.
4325885.25552.35998.20110.23391.38508.20846.65292.
4424799.24218.23493.21566.20197.38477.65108
45    ),
46
47    'big5'	=> (join('',
48'�Ұ������]�Ǥ��A�ӬӦҤ�B�e�Q',
49'�ᴣ�s�_�s�����A�����G�^�H���Q',
50    )),
51
52    'big5-hkscs'=> (join('',
53'�Ұ������]�Ǥ��A�ӬӦҤ�B�e�Q',
54'�ᴣ�s�_�s�����A�����G�^�H���Q',
55    )),
56
57    'cp950'	=> (join('',
58'�Ұ������]�Ǥ��A�ӬӦҤ�B�e�Q',
59'�ᴣ�s�_�s�����A�����G�^�H���Q',
60    )),
61});
62
63run_tests('Hong Kong Extensions', {
64    'utf'	=> (
6524863.35613.25152.26377.20351.29992.32.80.101.114.108.32.
6622021.26379.21451.65292.32102.25105.21707.22021.
6725903.25345.12289.24847.35211.21644.40723.21237.
6822914.26524.32232.30908.26377.20219.20309.37679.28431.
6965292.35531.21578.35380.25105.21707.12290
70    ),
71
72    'big5-hkscs'	=> join('',
73'�P�©Ҧ��ϥ� Perl ��B�͡A���ڒ]�����B�N���M���y',
74'�p�G�s�X��������|�A�Чi�D�ڒ]�C'
75    ),
76});
77
78sub run_tests {
79    my ($title, $tests) = @_;
80    my $utf = delete $tests->{'utf'};
81
82    # $enc = encoding, $str = content
83    foreach my $enc (sort keys %{$tests}) {
84    my $str = $tests->{$enc};
85
86    is(Encode::decode($enc, $str), $utf, "[$enc] decode - $title");
87    is(Encode::encode($enc, $utf), $str, "[$enc] encode - $title");
88
89    my $str2 = $str;
90    my $utf8 = Encode::encode('utf-8', $utf);
91
92    Encode::from_to($str2, $enc, 'utf-8');
93    is($str2, $utf8, "[$enc] from_to => utf8 - $title");
94
95    Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
96    is($utf8, $str,  "[$enc] utf8 => from_to - $title");
97    }
98}
99