Upgrade to Encode 1.30, from Dan Kogai.

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

diff --git a/ext/Encode/t/grow.t b/ext/Encode/t/grow.t
index 8cf2f03..e6b35fc 100644 (file)
--- a/ext/Encode/t/grow.t
+++ b/ext/Encode/t/grow.t
@@ -37,42 +37,3 @@ for my $i (1..$POWER){
 __END__
 
 
-#!../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__
-
-