Made sleepsort / cas @A test less fragile

Raku · Apr 21, 2014 · 2133955 · 2133955
1 parent dec25be
commit 2133955
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S17-concurrency/promise.t b/S17-concurrency/promise.t
@@ -172,7 +172,10 @@ plan 64;
 {
     my @a;
     my @p = (^10).pick(*).map: {
-        start { sleep $_; cas @a, -> @current { my @ = @current, OUTER::<$_> } }
+        start {
+            sleep 2 * $_;
+            cas @a, -> @current { my @ = @current, OUTER::<$_> };
+        }
     };
     my $all = Promise.allof(@p);
     isa_ok $all, Promise, 'allof gives a Promise';