[jvm] Fudge tests for execution order of Promise

Author: usev6

S17-promise/allof.t

@@ -41,6 +41,7 @@ plan 13;
     isa-ok $all, Promise, 'allof gives a Promise';
     my $b = $all.result;  # block
     isa-ok $b, Bool, 'get a bool of the result';
+    #?rakudo.jvm todo 'wrong order'
     is ~$a, "0 1 2 3 4 5 6 7 8 9", 'got the right order';
 }
 

S17-promise/at.t

@@ -16,6 +16,7 @@ plan 4;
     sleep 1;
     @order.push(2);
     await $p1, $p2;
+    #?rakudo.jvm todo 'got: "3 1 2", RT #123520'
     is @order, (1, 2, 3), 'Scheduler did not cause things to run in wrong order';
 }
 

S17-promise/basic.t

@@ -73,10 +73,12 @@ plan 41;
 
 # RT #122803
 {
-    is_run q[ await ^9 .map: { start { say "start"; sleep 1; say "end" } };],
-        { :0status, :err(''), :out("start\n" x 9 ~ "end\n" x 9) },
-        "promises execute asynchronously [try $_]"
-    for ^4;
+    for ^4 {
+        #?rakudo.jvm todo 'RT #122803'
+        is_run q[ await ^9 .map: { start { say "start"; sleep 1; say "end" } };],
+            { :0status, :err(''), :out("start\n" x 9 ~ "end\n" x 9) },
+            "promises execute asynchronously [try $_]"
+    }
 }
 
 # RT #129753

S17-promise/in.t

@@ -14,6 +14,7 @@ plan 4;
     sleep 1;
     @order.push(2);
     sleep 2;
+    #?rakudo.jvm todo 'got: "3, 1, 2", RT #123520'
     is @order, (1, 2, 3), 'Scheduler did not cause things to run in wrong order';
 }