Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Aliases.t	5.68 KB	-r--r--r--	2014-12-27 11:48
CJKT.t	3.01 KB	-r--r--r--	2014-12-27 11:48
Encode.t	5.03 KB	-r--r--r--	2014-12-27 11:48
Encoder.t	1006 B	-r--r--r--	2014-12-27 11:48
Mod_EUCJP.pm	442 B	-r--r--r--	2014-12-27 11:48
Unicode.t	5.83 KB	-r--r--r--	2014-12-27 11:48
at-cn.t	3.99 KB	-r--r--r--	2014-12-27 11:48
at-tw.t	2.54 KB	-r--r--r--	2014-12-27 11:48
big5-eten.enc	31.35 KB	-r--r--r--	2014-12-27 11:48
big5-eten.utf	44.79 KB	-r--r--r--	2014-12-27 11:48
big5-hkscs.enc	41.53 KB	-r--r--r--	2014-12-27 11:48
big5-hkscs.utf	59.27 KB	-r--r--r--	2014-12-27 11:48
cow.t	385 B	-r--r--r--	2014-12-27 11:48
decode.t	514 B	-r--r--r--	2014-12-27 11:48
enc_data.t	1020 B	-r--r--r--	2014-12-27 11:48
enc_eucjp.t	2.08 KB	-r--r--r--	2014-12-27 11:48
enc_module.enc	24 B	-r--r--r--	2014-12-27 11:48
enc_module.t	1.73 KB	-r--r--r--	2014-12-27 11:48
enc_utf8.t	1.9 KB	-r--r--r--	2014-12-27 11:48
encoding.t	5.14 KB	-r--r--r--	2014-12-27 11:48
fallback.t	5.08 KB	-r--r--r--	2014-12-27 11:48
from_to.t	357 B	-r--r--r--	2014-12-27 11:48
gb2312.enc	16.96 KB	-r--r--r--	2014-12-27 11:48
gb2312.utf	24.08 KB	-r--r--r--	2014-12-27 11:48
grow.t	820 B	-r--r--r--	2014-12-27 11:48
gsm0338.t	3.55 KB	-r--r--r--	2014-12-27 11:48
guess.t	3.68 KB	-r--r--r--	2014-12-27 11:48
jis7-fallback.t	337 B	-r--r--r--	2014-12-27 11:48
jisx0201.enc	145 B	-r--r--r--	2014-12-27 11:48
jisx0201.utf	208 B	-r--r--r--	2014-12-27 11:48
jisx0208.enc	15.77 KB	-r--r--r--	2014-12-27 11:48
jisx0208.utf	22.36 KB	-r--r--r--	2014-12-27 11:48
jisx0212.enc	19.86 KB	-r--r--r--	2014-12-27 11:48
jisx0212.utf	19.6 KB	-r--r--r--	2014-12-27 11:48
jperl.t	2.63 KB	-r--r--r--	2014-12-27 11:48
ksc5601.enc	18.72 KB	-r--r--r--	2014-12-27 11:48
ksc5601.utf	26.59 KB	-r--r--r--	2014-12-27 11:48
mime-header.t	4.54 KB	-r--r--r--	2014-12-27 11:48
mime-name.t	836 B	-r--r--r--	2014-12-27 11:48
mime_header_iso2022jp.t	1.02 KB	-r--r--r--	2014-12-27 11:48
perlio.t	4.83 KB	-r--r--r--	2014-12-27 11:48
piconv.t	2.55 KB	-r--r--r--	2014-12-27 11:48
rt.pl	1.69 KB	-r--r--r--	2014-12-27 11:48
taint.t	393 B	-r--r--r--	2014-12-27 11:49
unibench.pl	1.81 KB	-r--r--r--	2014-12-27 11:48
utf8ref.t	368 B	-r--r--r--	2014-12-27 11:48
utf8strict.t	2.54 KB	-r--r--r--	2014-12-27 11:48

Rename

BEGIN {
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bEncode\b/) {
      print "1..0 # Skip: Encode was not built\n";
      exit 0;
    }
    if (ord("A") == 193) {
    print "1..0 # Skip: EBCDIC\n";
    exit 0;
    }
# should work w/o PerlIO now!
#    unless (PerlIO::Layer->find('perlio')){
#	print "1..0 # Skip: PerlIO required\n";
#	exit 0;
#   }
    $| = 1;
}
use strict;
use Test::More tests => 60;
use Encode;
use File::Basename;
use File::Spec;
use File::Compare qw(compare_text);
our $DEBUG = shift || 0;

my %Charset =
    (
     'big5-eten'  => [qw(big5-eten)],
     'big5-hkscs' => [qw(big5-hkscs)],
     gb2312       => [qw(euc-cn hz)],
     jisx0201     => [qw(euc-jp shiftjis 7bit-jis)],
     jisx0208     => [qw(euc-jp shiftjis 7bit-jis iso-2022-jp iso-2022-jp-1)],
     jisx0212     => [qw(euc-jp 7bit-jis iso-2022-jp-1)],
     ksc5601      => [qw(euc-kr iso-2022-kr johab)],
    );

my $dir = dirname(__FILE__);
my $seq = 1;

for my $charset (sort keys %Charset){
    my ($src, $uni, $dst, $txt);

my $transcoder = find_encoding($Charset{$charset}[0]) or die;

my $src_enc = File::Spec->catfile($dir,"$charset.enc");
    my $src_utf = File::Spec->catfile($dir,"$charset.utf");
    my $dst_enc = File::Spec->catfile($dir,"$$.enc");
    my $dst_utf = File::Spec->catfile($dir,"$$.utf");

open $src, "<$src_enc" or die "$src_enc : $!";
    
    if (PerlIO::Layer->find('perlio')){
    binmode($src, ":bytes"); # needed when :utf8 in default open layer
    }

$txt = join('',<$src>);
    close($src);
    
    eval{ $uni = $transcoder->decode($txt, 1) }; 
    $@ and print $@;
    ok(defined($uni),  "decode $charset"); $seq++;
    is(length($txt),0, "decode $charset completely"); $seq++;
    
    open $dst, ">$dst_utf" or die "$dst_utf : $!";
    if (PerlIO::Layer->find('perlio')){
    binmode($dst, ":utf8");
    print $dst $uni;
    }else{ # ugh!
    binmode($dst);
    my $raw = $uni; Encode::_utf8_off($raw);
    print $dst $raw;
    }

close($dst); 
    is(compare_text($dst_utf, $src_utf), 0, "$dst_utf eq $src_utf")
    or ($DEBUG and rename $dst_utf, "$dst_utf.$seq");
    $seq++;
    
    open $src, "<$src_utf" or die "$src_utf : $!";
    if (PerlIO::Layer->find('perlio')){
    binmode($src, ":utf8");
    $uni = join('', <$src>);
    }else{ # ugh!
    binmode($src);
    $uni = join('', <$src>);
    Encode::_utf8_on($uni);
    }
    close $src;

my $unisave = $uni;
    eval{ $txt = $transcoder->encode($uni,1) };    
    $@ and print $@;
    ok(defined($txt),   "encode $charset"); $seq++;
    is(length($uni), 0, "encode $charset completely");  $seq++;
    $uni = $unisave;

open $dst,">$dst_enc" or die "$dst_utf : $!";
    binmode($dst);
    print $dst $txt;
    close($dst); 
    is(compare_text($src_enc, $dst_enc), 0 => "$dst_enc eq $src_enc")
    or ($DEBUG and rename $dst_enc, "$dst_enc.$seq");
    $seq++;
    
    unlink($dst_utf, $dst_enc);

for my $encoding (@{$Charset{$charset}}){
    my $rt = decode($encoding, encode($encoding, $uni));
    is ($rt, $uni, "RT $encoding");
    }
}