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

# $Id: enc_eucjp.t,v 2.2 2013/02/18 02:23:56 dankogai Exp $
# This is the twin of enc_utf8.t .

BEGIN {
    require Config; import Config;
    if ($Config{'extensions'} !~ /\bEncode\b/) {
      print "1..0 # Skip: Encode was not built\n";
      exit 0;
    }
    unless (find PerlIO::Layer 'perlio') {
    print "1..0 # Skip: PerlIO was not built\n";
    exit 0;
    }
    if (ord("A") == 193) {
    print "1..0 # encoding pragma does not support EBCDIC platforms\n";
    exit(0);
    }
    if ($] <= 5.008 and !$Config{perl_patchlevel}){
    print "1..0 # Skip: Perl 5.8.1 or later required\n";
    exit 0;
    }
}

no warnings "deprecated";
use encoding 'euc-jp';

my @c = (127, 128, 255, 256);

print "1.." . (scalar @c + 1) . "\n";

my @f;

for my $i (0..$#c) {
  no warnings 'pack';
  my $file = filename("f$i");
  push @f, $file;
  open(F, ">$file") or die "$0: failed to open '$file' for writing: $!";
  binmode(F, ":utf8");
  print F chr($c[$i]);
  print F pack("C" => $c[$i]);
  close F;
}

my $t = 1;

for my $i (0..$#c) {
  my $file = filename("f$i");
  open(F, "<$file") or die "$0: failed to open '$file' for reading: $!";
  binmode(F, ":utf8");
  my $c = <F>;
  my $o = ord($c);
  print $o == $c[$i] ? "ok $t - utf8 I/O $c[$i]\n" : "not ok $t - utf8 I/O $c[$i]: $o != $c[$i]\n";
  $t++;
}

my $f = filename("f" . @f);

push @f, $f;
open(F, ">$f") or die "$0: failed to open '$f' for writing: $!";
binmode(F, ":raw"); # Output raw bytes.
print F chr(128); # Output illegal UTF-8.
close F;
open(F, $f) or die "$0: failed to open '$f' for reading: $!";
binmode(F, ":encoding(utf-8)");
{
    local $^W = 1;
    local $SIG{__WARN__} = sub { $a = shift };
    eval { <F> }; # This should get caught.
}
close F;
print $a =~ qr{^utf8 "\\x80" does not map to Unicode} ?
  "ok $t - illegal utf8 input\n" : "not ok $t - illegal utf8 input: a = " . unpack("H*", $a) . "\n";

# On VMS temporary file names like "f0." may be more readable than "f0" since
# "f0" could be a logical name pointing elsewhere.
sub filename {
    my $name = shift;
    $name .= '.' if $^O eq 'VMS';
    return $name;
}

END {
  1 while unlink @f;
}