[p5sagit/p5-mst-13.2.git] / ext / Encode / t / grow.t

#!../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__
Commit	Line	Data
26b787bb	1	#!../perl
	2	our $POWER;
	3	BEGIN {
	4	if ($ENV{'PERL_CORE'}){
	5	chdir 't';
	6	unshift @INC, '../lib';
	7	}
	8	require Config; import Config;
	9	if ($Config{'extensions'} !~ /\bEncode\b/) {
	10	print "1..0 # Skip: Encode was not built\n";
	11	exit 0;
	12	}
	13	$POWER = 12; # up to 1 MB. You may adjust the figure here
	14	}
	15
	16	use strict;
	17	use Encode;
	18
	19	my $seed = "";
	20	for my $i (0x00..0xff){
	21	my $c = chr($i);
	22	$seed .= ($c =~ /^\p{IsPrint}/o) ? $c : " ";
	23	}
	24
	25	use Test::More tests => $POWER*2;
	26	my $octs = $seed;
	27	use bytes ();
	28	for my $i (1..$POWER){
	29	$octs .= $octs;
	30	my $len = bytes::length($octs);
	31	my $utf8 = Encode::decode('latin1', $octs);
	32	ok(1, "decode $len bytes");
	33	is($octs,
	34	Encode::encode('latin1', $utf8),
	35	"encode $len bytes");
	36	}
	37	__END__
	38
	39