4 if ($ENV{'PERL_CORE'}){
6 unshift @INC, '../lib';
8 require Config; import Config;
9 if ($Config{'extensions'} !~ /\bEncode\b/) {
10 print "1..0 # Skip: Encode was not built\n";
13 $POWER = 12; # up to 1 MB. You may adjust the figure here
20 for my $i (0x00..0xff){
22 $seed .= ($c =~ /^\p{IsPrint}/o) ? $c : " ";
25 use Test::More tests => $POWER*2;
28 for my $i (1..$POWER){
30 my $len = bytes::length($octs);
31 my $utf8 = Encode::decode('latin1', $octs);
32 ok(1, "decode $len bytes");
34 Encode::encode('latin1', $utf8),