grow.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!../perl
our $POWER;
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;
}
$POWER = 12; # up to 1 MB. You may adjust the figure here
}
use strict;
use Encode;
my $seed = "";
for my $i (0x00..0xff){
my $c = chr($i);
$seed .= ($c =~ /^\p{IsPrint}/o) ? $c : " ";
}
use Test::More tests => $POWER*2;
my $octs = $seed;
use bytes ();
for my $i (1..$POWER){
$octs .= $octs;
my $len = bytes::length($octs);
my $utf8 = Encode::decode('latin1', $octs);
ok(1, "decode $len bytes");
is($octs,
Encode::encode('latin1', $utf8),
"encode $len bytes");
}
__END__