X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Frepeat.t;h=e728413e9b848dae7af753bbc82b5ec3acdbe0f5;hb=e081bb54e0eecfb962e7f0cfd84fcbdb2683d54d;hp=f33022ed0ab47de4d2f929a293993ddf07e963b5;hpb=2b573acec7886e18e5f2804e8915073100dce2e4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/repeat.t b/t/op/repeat.t
index f33022e..e728413 100755
--- a/t/op/repeat.t
+++ b/t/op/repeat.t
@@ -6,9 +6,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan(tests => 45);
-
-use Config;
+plan(tests => 41);
 
 # compile time
 
@@ -153,38 +151,3 @@ is(77, scalar ((1,7)x2),    'stack truncation');
     }
     is($y, 'abcdabcd');
 }
-
-# Test the "malloc wrappage" guards introduced in Perl 5.8.4.
-
-# Note that the guards do not catch everything: for example
-# "0"x0x7f...f is fine because it will attempt to allocate
-# "only" 0x7f...f+1 bytes: no wrappage there.
-
-if ($Config{ptrsize} == 4) {
-    eval '@a=(0)x0x7fffffff';
-    like($@, qr/Out of memory during list extend/,   "list extend");
-
-    eval '@a=(0)x0x80000000';
-    like($@, qr/Out of memory during list extend/,   "list extend");
-
-    eval '$a="012"x0x7fffffff';
-    like($@, qr/Out of memory during string extend/, "string extend");
-
-    eval '$a="012"x0x80000000';
-    like($@, qr/Out of memory during string extend/, "string extend");
-} elsif ($Config{ptrsize} == 8) {
-    eval '@a=(0)x0x7fffffffffffffff';
-    like($@, qr/Out of memory during list extend/,   "list extend");
-
-    eval '@a=(0)x0x8000000000000000';
-    like($@, qr/Out of memory during list extend/,   "list extend");
-
-    eval '$a="012"x0x7fffffffffffffff';
-    like($@, qr/Out of memory during string extend/, "string extend");
-
-    eval '$a="012"x0x8000000000000000';
-    like($@, qr/Out of memory during string extend/, "string extend");
-} else {
-    die "\$Config{ptrsize} == $Config{ptrsize}?";
-}
-