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 {
    if ($ENV{'PERL_CORE'}){
        chdir 't';
        unshift @INC, '../lib';
    }
    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;
    }
    $| = 1;
}

use strict;
#use Test::More qw(no_plan);
use Test::More tests => 50;
use Encode q(:all);

my $uo = '';
my $nf  = '';
my ($af, $aq, $ap, $ah, $ax, $uf, $uq, $up, $uh, $ux, $ac, $uc);
for my $i (0x20..0x7e){
    $uo .= chr($i);
}
$af = $aq = $ap = $ah = $ax = $ac =
$uf = $uq = $up = $uh = $ux = $uc =
$nf = $uo;

my $residue = '';
for my $i (0x80..0xff){
    $uo   .= chr($i);
    $residue    .= chr($i);
    $af .= '?';
    $uf .= "\x{FFFD}";
    $ap .= sprintf("\\x{%04x}", $i);
    $up .= sprintf("\\x%02X", $i);
    $ah .= sprintf("&#%d;", $i);
    $uh .= sprintf("\\x%02X", $i);
    $ax .= sprintf("&#x%x;", $i);
    $ux .= sprintf("\\x%02X", $i);
    $ac .= sprintf("<U+%04X>", $i);
    $uc .= sprintf("[%02X]", $i);
}

my $ao = $uo;
utf8::upgrade($uo);

my $ascii  = find_encoding('ascii');
my $utf8   = find_encoding('utf8');

my $src = $uo;
my $dst = $ascii->encode($src, FB_DEFAULT);
is($dst, $af, "FB_DEFAULT ascii");
is($src, $uo, "FB_DEFAULT residue ascii");

$src = $ao;
$dst = $utf8->decode($src, FB_DEFAULT);
is($dst, $uf, "FB_DEFAULT utf8");
is($src, $ao, "FB_DEFAULT residue utf8");

$src = $uo;
eval{ $dst = $ascii->encode($src, FB_CROAK) };
like($@, qr/does not map to ascii/o, "FB_CROAK ascii");
is($src, $uo, "FB_CROAK residue ascii");

$src = $ao;
eval{ $dst = $utf8->decode($src, FB_CROAK) };
like($@, qr/does not map to Unicode/o, "FB_CROAK utf8");
is($src, $ao, "FB_CROAK residue utf8");

$src = $nf;
eval{ $dst = $ascii->encode($src, FB_CROAK) };
is($@, '', "FB_CROAK on success ascii");
is($src, '', "FB_CROAK on success residue ascii");

$src = $nf;
eval{ $dst = $utf8->decode($src, FB_CROAK) };
is($@, '', "FB_CROAK on success utf8");
is($src, '', "FB_CROAK on success residue utf8");

$src = $uo;
$dst = $ascii->encode($src, FB_QUIET);
is($dst, $aq,   "FB_QUIET ascii");
is($src, $residue, "FB_QUIET residue ascii");

$src = $ao;
$dst = $utf8->decode($src, FB_QUIET);
is($dst, $uq,   "FB_QUIET utf8");
is($src, $residue, "FB_QUIET residue utf8");

{
    my $message = '';
    local $SIG{__WARN__} = sub { $message = $_[0] };

$src = $uo;
    $dst = $ascii->encode($src, FB_WARN);
    is($dst, $aq,   "FB_WARN ascii");
    is($src, $residue, "FB_WARN residue ascii");
    like($message, qr/does not map to ascii/o, "FB_WARN message ascii");

$message = '';
    $src = $ao;
    $dst = $utf8->decode($src, FB_WARN);
    is($dst, $uq,   "FB_WARN utf8");
    is($src, $residue, "FB_WARN residue utf8");
    like($message, qr/does not map to Unicode/o, "FB_WARN message utf8");

$message = '';
    $src = $uo;
    $dst = $ascii->encode($src, WARN_ON_ERR);
    is($dst, $af, "WARN_ON_ERR ascii");
    is($src, '',  "WARN_ON_ERR residue ascii");
    like($message, qr/does not map to ascii/o, "WARN_ON_ERR message ascii");

$message = '';
    $src = $ao;
    $dst = $utf8->decode($src, WARN_ON_ERR);
    is($dst, $uf, "WARN_ON_ERR utf8");
    is($src, '',  "WARN_ON_ERR residue utf8");
    like($message, qr/does not map to Unicode/o, "WARN_ON_ERR message ascii");
}

$src = $uo;
$dst = $ascii->encode($src, FB_PERLQQ);
is($dst, $ap, "FB_PERLQQ encode");
is($src, $uo, "FB_PERLQQ residue encode");

$src = $ao;
$dst = $ascii->decode($src, FB_PERLQQ);
is($dst, $up, "FB_PERLQQ decode");
is($src, $ao, "FB_PERLQQ residue decode");

$src = $uo;
$dst = $ascii->encode($src, FB_HTMLCREF);
is($dst, $ah, "FB_HTMLCREF encode");
is($src, $uo, "FB_HTMLCREF residue encode");

$src = $ao;
$dst = $ascii->decode($src, FB_HTMLCREF);
is($dst, $uh, "FB_HTMLCREF decode");
is($src, $ao, "FB_HTMLCREF residue decode");

$src = $uo;
$dst = $ascii->encode($src, FB_XMLCREF);
is($dst, $ax, "FB_XMLCREF encode");
is($src, $uo, "FB_XMLCREF residue encode");

$src = $ao;
$dst = $ascii->decode($src, FB_XMLCREF);
is($dst, $ux, "FB_XMLCREF decode");
is($src, $ao, "FB_XMLCREF residue decode");

$src = $uo;
$dst = $ascii->encode($src, sub{ sprintf "<U+%04X>", shift });
is($dst, $ac, "coderef encode");
is($src, $uo, "coderef residue encode");

$src = $ao;
$dst = $ascii->decode($src, sub{ sprintf "[%02X]", shift });
is($dst, $uc, "coderef decode");
is($src, $ao, "coderef residue decode");

$src = "\x{3000}";
$dst = $ascii->encode($src, sub{ $_[0] });
is $dst, 0x3000."", qq{$ascii->encode(\$src, sub{ \$_[0] } )};
$dst = encode("ascii", "\x{3000}", sub{ $_[0] });
is $dst, 0x3000."", qq{encode("ascii", "\\x{3000}", sub{ \$_[0] })};

$src = pack "C*", 0xFF;
$dst = $ascii->decode($src, sub{ $_[0] });
is $dst, 0xFF."", qq{$ascii->encode(\$src, sub{ \$_[0] } )};
$dst = decode("ascii", (pack "C*", 0xFF), sub{ $_[0] });
is $dst, 0xFF."", qq{decode("ascii", (pack "C*", 0xFF), sub{ \$_[0] })};

$src = pack "C*", 0x80;
$dst = $utf8->decode($src, sub{ $_[0] });
is $dst, 0x80."", qq{$utf8->encode(\$src, sub{ \$_[0] } )};
$dst = decode("utf8", $src, sub{ $_[0] });
is $dst, 0x80."", qq{decode("utf8", (pack "C*", 0x80), sub{ \$_[0] })};