|
Packit |
d0f5c2 |
BEGIN {
|
|
Packit |
d0f5c2 |
if (! -d 'blib' and -d 't'){ chdir 't' };
|
|
Packit |
d0f5c2 |
unshift @INC, '../lib';
|
|
Packit |
d0f5c2 |
require Config; import Config;
|
|
Packit |
d0f5c2 |
if ($Config{'extensions'} !~ /\bEncode\b/) {
|
|
Packit |
d0f5c2 |
print "1..0 # Skip: Encode was not built\n";
|
|
Packit |
d0f5c2 |
exit 0;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
unless (find PerlIO::Layer 'perlio') {
|
|
Packit |
d0f5c2 |
print "1..0 # Skip: PerlIO was not built\n";
|
|
Packit |
d0f5c2 |
exit 0;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
if (ord("A") == 193) {
|
|
Packit |
d0f5c2 |
print "1..0 # Skip: EBCDIC\n";
|
|
Packit |
d0f5c2 |
exit 0;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
$| = 1;
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
use strict;
|
|
Packit |
d0f5c2 |
use Test::More tests => 17;
|
|
Packit |
d0f5c2 |
use Encode;
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
no utf8; # we have raw Chinese encodings here
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
BEGIN {
|
|
Packit |
d0f5c2 |
use_ok('Encode::TW');
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
# Since JP.t already tests basic file IO, we will just focus on
|
|
Packit |
d0f5c2 |
# internal encode / decode test here. Unfortunately, to test
|
|
Packit |
d0f5c2 |
# against all the UniHan characters will take a huge disk space,
|
|
Packit |
d0f5c2 |
# not to mention the time it will take, and the fact that Perl
|
|
Packit |
d0f5c2 |
# did not bundle UniHan.txt anyway.
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
# So, here we just test a typical snippet spanning multiple Unicode
|
|
Packit |
d0f5c2 |
# blocks, and hope it can point out obvious errors.
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
run_tests('Basic Big5 range', {
|
|
Packit |
d0f5c2 |
'utf' => (
|
|
Packit |
d0f5c2 |
24093.39640.38525.20043.33495.35028.20846.65292.
|
|
Packit |
d0f5c2 |
26389.30343.32771.26352.20271.24248.65108.
|
|
Packit |
d0f5c2 |
25885.25552.35998.20110.23391.38508.20846.65292.
|
|
Packit |
d0f5c2 |
24799.24218.23493.21566.20197.38477.65108
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'big5' => (join('',
|
|
Packit |
d0f5c2 |
'«Ò°ª¶§¤§]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
|
|
Packit |
d0f5c2 |
'Äá´£s¤_©s³µ¤¼¡A±©©°±G§^¥H°¡Q',
|
|
Packit |
d0f5c2 |
)),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'big5-hkscs'=> (join('',
|
|
Packit |
d0f5c2 |
'«Ò°ª¶§¤§]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
|
|
Packit |
d0f5c2 |
'Äá´£s¤_©s³µ¤¼¡A±©©°±G§^¥H°¡Q',
|
|
Packit |
d0f5c2 |
)),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'cp950' => (join('',
|
|
Packit |
d0f5c2 |
'«Ò°ª¶§¤§]¸Ç¤¼¡A®Ó¬Ó¦Ò¤ê§B±e¡Q',
|
|
Packit |
d0f5c2 |
'Äá´£s¤_©s³µ¤¼¡A±©©°±G§^¥H°¡Q',
|
|
Packit |
d0f5c2 |
)),
|
|
Packit |
d0f5c2 |
});
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
run_tests('Hong Kong Extensions', {
|
|
Packit |
d0f5c2 |
'utf' => (
|
|
Packit |
d0f5c2 |
24863.35613.25152.26377.20351.29992.32.80.101.114.108.32.
|
|
Packit |
d0f5c2 |
22021.26379.21451.65292.32102.25105.21707.22021.
|
|
Packit |
d0f5c2 |
25903.25345.12289.24847.35211.21644.40723.21237.
|
|
Packit |
d0f5c2 |
22914.26524.32232.30908.26377.20219.20309.37679.28431.
|
|
Packit |
d0f5c2 |
65292.35531.21578.35380.25105.21707.12290
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'big5-hkscs' => join('',
|
|
Packit |
d0f5c2 |
'·PÁ©Ҧ³¨Ï¥Î Perl ïªB¤Í¡Aµ¹§Ú]ï¤ä«ù¡B·N¨£©M¹ªÀy',
|
|
Packit |
d0f5c2 |
'¦pªG½s½X¦³¥ô¦ó¿ùº|¡A½Ğ§i¶D§Ú]¡C'
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
});
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
sub run_tests {
|
|
Packit |
d0f5c2 |
my ($title, $tests) = @_;
|
|
Packit |
d0f5c2 |
my $utf = delete $tests->{'utf'};
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
# $enc = encoding, $str = content
|
|
Packit |
d0f5c2 |
foreach my $enc (sort keys %{$tests}) {
|
|
Packit |
d0f5c2 |
my $str = $tests->{$enc};
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
is(Encode::decode($enc, $str), $utf, "[$enc] decode - $title");
|
|
Packit |
d0f5c2 |
is(Encode::encode($enc, $utf), $str, "[$enc] encode - $title");
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
my $str2 = $str;
|
|
Packit |
d0f5c2 |
my $utf8 = Encode::encode('utf-8', $utf);
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
Encode::from_to($str2, $enc, 'utf-8');
|
|
Packit |
d0f5c2 |
is($str2, $utf8, "[$enc] from_to => utf8 - $title");
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
Encode::from_to($utf8, 'utf-8', $enc); # convert $utf8 as $enc
|
|
Packit |
d0f5c2 |
is($utf8, $str, "[$enc] utf8 => from_to - $title");
|
|
Packit |
d0f5c2 |
}
|
|
Packit |
d0f5c2 |
}
|