Fix test vulnerable to spurious condvar wakeups

Raku · Jan 2, 2018 · 949306e · 949306e
1 parent 89939e1
commit 949306e
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/t/concurrency/02-lock.t b/t/concurrency/02-lock.t
@@ -106,7 +106,9 @@ my class CondVar is repr('ConditionVariable') { }
     my $t1 := nqp::newthread({
         nqp::lock($l);
         nqp::push(@log, 'ale');
-        nqp::condwait($c);
+        until nqp::elems(@log) == 2 {
+            nqp::condwait($c);
+        }
         nqp::push(@log, 'stout');
         nqp::condsignalall($c);
         $now1 := nqp::time_n();
@@ -125,7 +127,9 @@ my class CondVar is repr('ConditionVariable') { }
         nqp::lock($l);
         nqp::push(@log, 'porter');
         nqp::condsignalone($c);
-        nqp::condwait($c);
+        until nqp::elems(@log) == 3 {
+            nqp::condwait($c);
+        }
         nqp::push(@log, 'lager');
         nqp::unlock($l);
     }, 0);