Fixes to threads tests
[p5sagit/p5-mst-13.2.git] / ext / threads / t / stack.t
index b5cb11e..ea22893 100644 (file)
@@ -34,72 +34,72 @@ BEGIN {
     print("1..18\n");   ### Number of tests that will be run ###
 };
 
-use threads ('stack_size' => 32*4096);
+use threads ('stack_size' => 128*4096);
 ok(1, 1, 'Loaded');
 
 ### Start of Testing ###
 
-ok(2, threads->get_stack_size() == 32*4096,
+ok(2, threads->get_stack_size() == 128*4096,
         'Stack size set in import');
-ok(3, threads->set_stack_size(64*4096) == 32*4096,
+ok(3, threads->set_stack_size(160*4096) == 128*4096,
         'Set returns previous value');
-ok(4, threads->get_stack_size() == 64*4096,
+ok(4, threads->get_stack_size() == 160*4096,
         'Get stack size');
 
 threads->create(
     sub {
-        ok(5, threads->get_stack_size() == 64*4096,
+        ok(5, threads->get_stack_size() == 160*4096,
                 'Get stack size in thread');
-        ok(6, threads->self()->get_stack_size() == 64*4096,
+        ok(6, threads->self()->get_stack_size() == 160*4096,
                 'Thread gets own stack size');
-        ok(7, threads->set_stack_size(32*4096) == 64*4096,
+        ok(7, threads->set_stack_size(128*4096) == 160*4096,
                 'Thread changes stack size');
-        ok(8, threads->get_stack_size() == 32*4096,
+        ok(8, threads->get_stack_size() == 128*4096,
                 'Get stack size in thread');
-        ok(9, threads->self()->get_stack_size() == 64*4096,
+        ok(9, threads->self()->get_stack_size() == 160*4096,
                 'Thread stack size unchanged');
     }
 )->join();
 
-ok(10, threads->get_stack_size() == 32*4096,
+ok(10, threads->get_stack_size() == 128*4096,
         'Default thread sized changed in thread');
 
 threads->create(
-    { 'stack' => 64*4096 },
+    { 'stack' => 160*4096 },
     sub {
-        ok(11, threads->get_stack_size() == 32*4096,
+        ok(11, threads->get_stack_size() == 128*4096,
                 'Get stack size in thread');
-        ok(12, threads->self()->get_stack_size() == 64*4096,
+        ok(12, threads->self()->get_stack_size() == 160*4096,
                 'Thread gets own stack size');
     }
 )->join();
 
-my $thr = threads->create( { 'stack' => 64*4096 }, sub { } );
+my $thr = threads->create( { 'stack' => 160*4096 }, sub { } );
 
 $thr->create(
     sub {
-        ok(13, threads->get_stack_size() == 32*4096,
+        ok(13, threads->get_stack_size() == 128*4096,
                 'Get stack size in thread');
-        ok(14, threads->self()->get_stack_size() == 64*4096,
+        ok(14, threads->self()->get_stack_size() == 160*4096,
                 'Thread gets own stack size');
     }
 )->join();
 
 $thr->create(
-    { 'stack' => 48*4096 },
+    { 'stack' => 144*4096 },
     sub {
-        ok(15, threads->get_stack_size() == 32*4096,
+        ok(15, threads->get_stack_size() == 128*4096,
                 'Get stack size in thread');
-        ok(16, threads->self()->get_stack_size() == 48*4096,
+        ok(16, threads->self()->get_stack_size() == 144*4096,
                 'Thread gets own stack size');
-        ok(17, threads->set_stack_size(64*4096) == 32*4096,
+        ok(17, threads->set_stack_size(160*4096) == 128*4096,
                 'Thread changes stack size');
     }
 )->join();
 
 $thr->join();
 
-ok(18, threads->get_stack_size() == 64*4096,
+ok(18, threads->get_stack_size() == 160*4096,
         'Default thread sized changed in thread');
 
 # EOF