2 if ($ENV{'PERL_CORE'}){
4 unshift @INC, '../lib';
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bEncode\b/) {
8 print "1..0 # Skip: Encode was not built\n";
11 if (ord("A") == 193) {
12 print "1..0 # Skip: EBCDIC\n";
15 # should work w/o PerlIO now!
16 # unless (PerlIO::Layer->find('perlio')){
17 # print "1..0 # Skip: PerlIO required\n";
23 use Test::More tests => 73;
24 #use Test::More qw(no_plan);
28 use File::Compare qw(compare_text);
29 our $DEBUG = shift || 0;
33 'big5-eten' => [qw(big5-eten cp950 MacChineseTrad)],
34 'big5-hkscs' => [qw(big5-hkscs)],
35 gb2312 => [qw(euc-cn gb2312-raw cp936 MacChineseSimp)],
36 jisx0201 => [qw(euc-jp shiftjis 7bit-jis jis0201-raw
38 jisx0212 => [qw(euc-jp 7bit-jis iso-2022-jp-1 jis0208-raw)],
39 jisx0208 => [qw(euc-jp shiftjis 7bit-jis cp932 MacJapanese
40 iso-2022-jp iso-2022-jp-1 jis0212-raw)],
41 ksc5601 => [qw(euc-kr iso-2022-kr ksc5601-raw cp949 MacKorean)],
44 my $dir = dirname(__FILE__);
47 for my $charset (sort keys %Charset) {
48 my ($src, $uni, $dst, $txt);
50 my $transcoder = find_encoding($Charset{$charset}[0]) or die;
52 my $src_enc = File::Spec->catfile($dir,"$charset.enc");
53 my $src_utf = File::Spec->catfile($dir,"$charset.utf");
54 my $dst_enc = File::Spec->catfile($dir,"$$.enc");
55 my $dst_utf = File::Spec->catfile($dir,"$$.utf");
58 open $src, "<$src_enc" or die "$src_enc : $!";
59 # binmode($src); # not needed!
61 $txt = join('',<$src>);
64 eval{ $uni = $transcoder->decode($txt, 1) };
66 ok(defined($uni), "decode $charset"); $seq++;
67 is(length($txt),0, "decode $charset completely"); $seq++;
69 open $dst, ">$dst_utf" or die "$dst_utf : $!";
70 if (PerlIO::Layer->find('perlio')){
71 binmode($dst, ":utf8");
75 my $raw = $uni; Encode::_utf8_off($raw);
80 is(compare_text($dst_utf, $src_utf), 0, "$dst_utf eq $src_utf")
81 or ($DEBUG and rename $dst_utf, "$dst_utf.$seq");
84 open $src, "<$src_utf" or die "$src_utf : $!";
85 if (PerlIO::Layer->find('perlio')){
86 binmode($src, ":utf8");
87 $uni = join('', <$src>);
90 $uni = join('', <$src>);
91 Encode::_utf8_on($uni);
95 eval{ $txt = $transcoder->encode($uni,1) };
97 ok(defined($txt), "encode $charset"); $seq++;
98 is(length($uni), 0, "encode $charset completely"); $seq++;
100 open $dst,">$dst_enc" or die "$dst_utf : $!";
102 binmode($dst, ":bytes"); # in case LC_ALL is UTF8ish
105 is(compare_text($src_enc, $dst_enc), 0 => "$dst_enc eq $src_enc")
106 or ($DEBUG and rename $dst_enc, "$dst_enc.$seq");
109 for my $canon (@{$Charset{$charset}}){
110 is($uni, decode($canon, encode($canon, $uni)),
111 "RT/$charset/$canon");
114 unlink($dst_utf, $dst_enc);