Fixes to threads tests

[p5sagit/p5-mst-13.2.git] / ext / threads / t / stack_env.t

diff --git a/ext/threads/t/stack_env.t b/ext/threads/t/stack_env.t
index 18ad794..09de083 100644 (file)
--- a/ext/threads/t/stack_env.t
+++ b/ext/threads/t/stack_env.t
@@ -33,7 +33,7 @@ BEGIN {
     $| = 1;
     print("1..4\n");   ### Number of tests that will be run ###
 
-    $ENV{'PERL5_ITHREADS_STACK_SIZE'} = 196608;
+    $ENV{'PERL5_ITHREADS_STACK_SIZE'} = 128*4096;
 };
 
 use threads;
@@ -41,11 +41,11 @@ ok(1, 1, 'Loaded');
 
 ### Start of Testing ###
 
-ok(2, threads->get_stack_size() == 48*4096,
+ok(2, threads->get_stack_size() == 128*4096,
         '$ENV{PERL5_ITHREADS_STACK_SIZE}');
-ok(3, threads->set_stack_size(32*4096) == 48*4096,
+ok(3, threads->set_stack_size(144*4096) == 128*4096,
         'Set returns previous value');
-ok(4, threads->get_stack_size() == 32*4096,
+ok(4, threads->get_stack_size() == 144*4096,
         'Get stack size');
 
 # EOF