|
Packit |
d0f5c2 |
BEGIN {
|
|
Packit |
d0f5c2 |
if ($ENV{'PERL_CORE'}){
|
|
Packit |
d0f5c2 |
chdir 't';
|
|
Packit |
d0f5c2 |
unshift @INC, '../lib';
|
|
Packit |
d0f5c2 |
}
|
|
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 |
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 => 29;
|
|
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::CN');
|
|
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('Simplified Chinese only', {
|
|
Packit |
d0f5c2 |
'utf' => (
|
|
Packit |
d0f5c2 |
12298.26131.32463.12299.31532.19968.21350.
|
|
Packit |
d0f5c2 |
24406.26352.65306.
|
|
Packit |
d0f5c2 |
22823.21705.20094.20803.65292.19975.29289.36164.22987.65292.
|
|
Packit |
d0f5c2 |
20035.32479.22825.12290.
|
|
Packit |
d0f5c2 |
20113.34892.38632.26045.65292.21697.29289.27969.24418.12290.
|
|
Packit |
d0f5c2 |
22823.26126.22987.32456.65292.20845.20301.26102.25104.65292.
|
|
Packit |
d0f5c2 |
26102.20056.20845.40857.20197.24481.22825.12290.
|
|
Packit |
d0f5c2 |
20094.36947.21464.21270.65292.21508.27491.24615.21629.65292.
|
|
Packit |
d0f5c2 |
20445.21512.22823.21644.65292.20035.21033.36126.12290.
|
|
Packit |
d0f5c2 |
39318.20986.24246.29289.65292.19975.22269.21688.23425.12290
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'euc-cn' => join('',
|
|
Packit |
d0f5c2 |
'¡¶Ò×¾¡·µÚÒ»ØÔ',
|
|
Packit |
d0f5c2 |
'åèÔ»£º',
|
|
Packit |
d0f5c2 |
'´óÔÕǬԪ£¬ÍòÎï×Êʼ£¬',
|
|
Packit |
d0f5c2 |
'ÄËͳÌì¡£',
|
|
Packit |
d0f5c2 |
'ÔÆĞĞÓêÊ©£¬Æ·ÎïÁ÷ĞΡ£',
|
|
Packit |
d0f5c2 |
'´óÃ÷ʼÖÕ£¬Áùλʱ³É£¬',
|
|
Packit |
d0f5c2 |
'ʱ³ËÁùÁúÒÔÓùÌì¡£',
|
|
Packit |
d0f5c2 |
'ǬµÀ±ä»¯£¬¸÷ÕıĞÔÃü£¬',
|
|
Packit |
d0f5c2 |
'±£ºÏ´óºÍ£¬ÄËÀûÕê¡£',
|
|
Packit |
d0f5c2 |
'Ê׳öÊüÎÍò¹úÏÌÄş¡£',
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'gb2312-raw' => join('',
|
|
Packit |
d0f5c2 |
'!6RW>-!75ZR;XT',
|
|
Packit |
d0f5c2 |
'ehT;#:',
|
|
Packit |
d0f5c2 |
'4sTUG,T*#,MrNoWJJ<#,',
|
|
Packit |
d0f5c2 |
'DKM3Ll!#',
|
|
Packit |
d0f5c2 |
'TFPPSjJ)#,F7NoAwPN!#',
|
|
Packit |
d0f5c2 |
'4sCwJ
|
|
Packit |
d0f5c2 |
'J13KAyAzRTSyLl!#',
|
|
Packit |
d0f5c2 |
'G,5@1d;/#,8wU}PTC|#,',
|
|
Packit |
d0f5c2 |
'1#:O4s:M#,DK@{Uj!#',
|
|
Packit |
d0f5c2 |
'JW3vJ|No#,Mr9zOLD~!#'
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'iso-ir-165'=> join('',
|
|
Packit |
d0f5c2 |
'!6RW>-!75ZR;XT',
|
|
Packit |
d0f5c2 |
'ehT;#:',
|
|
Packit |
d0f5c2 |
'4sTUG,T*#,MrNoWJJ<#,',
|
|
Packit |
d0f5c2 |
'DKM3Ll!#',
|
|
Packit |
d0f5c2 |
'TFPPSjJ)#,F7NoAwPN!#',
|
|
Packit |
d0f5c2 |
'4sCwJ
|
|
Packit |
d0f5c2 |
'J13KAyAzRTSyLl!#',
|
|
Packit |
d0f5c2 |
'G,5@1d;/#,8wU}PTC|#,',
|
|
Packit |
d0f5c2 |
'1#:O4s:M#,DK@{Uj!#',
|
|
Packit |
d0f5c2 |
'JW3vJ|No#,Mr9zOLD~!#'
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
});
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
run_tests('Simplified Chinese + ASCII', {
|
|
Packit |
d0f5c2 |
'utf' => (
|
|
Packit |
d0f5c2 |
35937.26352.65306.10.
|
|
Packit |
d0f5c2 |
22825.34892.20581.65292.21531.23376.20197.33258.24378.19981.24687.12290.10.
|
|
Packit |
d0f5c2 |
28508.40857.21247.29992.65292.38451.22312.19979.20063.12290.32.
|
|
Packit |
d0f5c2 |
35265.40857.22312.30000.65292.24503.26045.26222.20063.12290.32.
|
|
Packit |
d0f5c2 |
32456.26085.20094.20094.65292.21453.22797.36947.20063.12290.10.
|
|
Packit |
d0f5c2 |
25110.36291.22312.28170.65292.36827.26080.21646.20063.12290.39134.
|
|
Packit |
d0f5c2 |
40857.22312.22825.65292.22823.20154.36896.20063.12290.32.
|
|
Packit |
d0f5c2 |
20130.40857.26377.24724.65292.30408.19981.21487.20037.20063.12290.10.
|
|
Packit |
d0f5c2 |
29992.20061.65292.22825.24503.19981.21487.20026.39318.20063.12290
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'cp936' => join(chr(10),
|
|
Packit |
d0f5c2 |
'ÏóÔ»£º',
|
|
Packit |
d0f5c2 |
'ÌìĞн¡£¬¾ı×ÓÒÔ×ÔÇ¿²»Ï¢¡£',
|
|
Packit |
d0f5c2 |
'DZÁúÎğÓã¬ÑôÔÚÏÂÒ²¡£ ¼ûÁúÔÚÌµÂÊ©ÆÕÒ²¡£ ÖÕÈÕǬǬ£¬·´¸´µÀÒ²¡£',
|
|
Packit |
d0f5c2 |
'»òÔ¾ÔÚÔ¨£¬½øÎŞ¾ÌÒ²¡£·ÉÁúÔÚÌ죬´óÈËÔìÒ²¡£ ¿ºÁúÓлڣ¬Ó¯²»¿É¾ÃÒ²¡£',
|
|
Packit |
d0f5c2 |
'Óþţ¬ÌìµÂ²»¿ÉΪÊ×Ò²¡£',
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
'hz' => join(chr(10),
|
|
Packit |
d0f5c2 |
'~{OsT;#:~}',
|
|
Packit |
d0f5c2 |
'~{LlPP=!#,>}WSRTWTG?2;O"!#~}',
|
|
Packit |
d0f5c2 |
'~{G1AzNpSC#,QtTZOBR2!#~} ~{<{AzTZLo#,5BJ)FUR2!#~} ~{VUHUG,G,#,74845@R2!#~}',
|
|
Packit |
d0f5c2 |
'~{;rT>TZT(#,=xN^>LR2!#7IAzTZLl#,4sHKTlR2!#~} ~{?:AzSP;Z#,S/2;?I>CR2!#~}',
|
|
Packit |
d0f5c2 |
'~{SC>E#,Ll5B2;?IN*JWR2!#~}',
|
|
Packit |
d0f5c2 |
),
|
|
Packit |
d0f5c2 |
});
|
|
Packit |
d0f5c2 |
|
|
Packit |
d0f5c2 |
run_tests('Traditional Chinese', {
|
|
Packit |
d0f5c2 |
'utf', => 20094.65306.20803.12289.20136.12289.21033.12289.35998,
|
|
Packit |
d0f5c2 |
'gb12345-raw' => 'G,#:T*!":`!"@{!"Uj',
|
|
Packit |
d0f5c2 |
'gbk' => 'Ǭ£ºÔª¡¢ºà¡¢Àû¡¢Ø',
|
|
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 |
}
|