[GH parrot#886] stabilize t/pmc/task.t, wait for kill signal

mrshu · Jan 3, 2013 · f8d3536 · f8d3536
1 parent d6dcaf3
commit f8d3536
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/t/pmc/task.t b/t/pmc/task.t
@@ -110,6 +110,12 @@ ok:
     pass
     task.'kill'()
     wait task
+
+    # busy wait for signal to arrive at the other thread
+    $I0 = 0
+    loop:
+        $I0 = $I0 + 1
+    if $I0 < 5000 goto loop
 .end
 
 .sub task_to_kill