From: David Mitchell <davem@iabyn.com>
Date: Thu, 14 Jul 2011 12:51:58 +0000 (+0100)
Subject: reduce size of threads.t test
X-Git-Tag: accepted/trunk/20130322.191538~3309
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2ff884afdc6d249a12c7a9bfc68d208cef616a75;p=platform%2Fupstream%2Fperl.git

reduce size of threads.t test

Commit 3c78429c102e0fe2ad30c60dfe52636b6071ef19 introduced a new test
that constructed and then evaled a very long string. Make that string less
long, as evaling it was consuming 100Mb on my debugging build, and a
smaller string still exercises the behaviour (i.e. fails on older perls).
---

diff --git a/t/op/threads.t b/t/op/threads.t
index 731e148..b159823 100644
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -367,7 +367,7 @@ EOI
 	{ $x = 0 };
 	$x =~ s/a/$x + 1/e;
 EOF
-    $code = 'my ($r, $x,$y,$z,@a); return 5; ' . ($code x 5000);
+    $code = 'my ($r, $x,$y,$z,@a); return 5; ' . ($code x 1000);
     my $res = threads->create(sub { eval $code})->join;
     is($res, 5, "avoid peephole recursion");
 }