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),
43 if ($ENV{'PERL_CORE'}){
45 unshift @INC, '../lib';
47 require Config; import Config;
48 if ($Config{'extensions'} !~ /\bEncode\b/) {
49 print "1..0 # Skip: Encode was not built\n";
52 $POWER = 12; # up to 1 MB. You may adjust the figure here
59 for my $i (0x00..0xff){
61 $seed .= ($c =~ /^\p{IsPrint}/o) ? $c : " ";
64 use Test::More tests => $POWER*2;
67 for my $i (1..$POWER){
69 my $len = bytes::length($octs);
70 my $utf8 = Encode::decode('latin1', $octs);
71 ok(1, "decode $len bytes");
73 Encode::encode('latin1', $utf8),