Merge branch 'master' of https://github.com/perl6/roast

Author: dwarring

S02-types/baghash.t

@@ -122,7 +122,7 @@ sub showkv($x) {
 
 {
     my $a = (1,2,3,2,2,2,2).BagHash;
-    is $a.kv.sort({ .[0] }), ((1, 1), (2, 5), (3, 1)).list.sort, "BagHash.kv returns list of keys and values";
+    is $a.kv.tree.sort({ .[0] }), ([1, 1], [2, 5], [3, 1]).list.sort, "BagHash.kv returns list of keys and values";
 }
 
 #?rakudo skip "Odd number of elements"
@@ -374,7 +374,8 @@ sub showkv($x) {
     ok @a.grep(* eq 'a').elems <= 1, '.grab(2) returned at most one "a"';
     is @a.grep(* eq 'b').elems, 2 - @a.grep(* eq 'a').elems, '.grab(2) and the rest are "b"';
     is $b.total, 0, '.grab *should* change BagHash';
-    #?rakudo.jvm todo "RT #120407"
+    #?rakudo.jvm todo "RT 120407"
+    #?rakudo.moar todo "RT 120407"
     is $b.elems, 0, '.grab *should* change BagHash';
 }
 
@@ -387,7 +388,8 @@ sub showkv($x) {
     is @a.grep(* eq 'a').elems, 1, '.grab(*) (1)';
     is @a.grep(* eq 'b').elems, 2, '.grab(*) (2)';
     is $b.total, 0, '.grab *should* change BagHash';
-    #?rakudo.jvm todo "RT #120407"
+    #?rakudo.jvm todo "RT 120407"
+    #?rakudo.moar todo "RT 120407"
     is $b.elems, 0, '.grab *should* change BagHash';
 }
 

S04-phasers/enter-leave.t

@@ -190,7 +190,8 @@ plan 21;
 
 #?niecza todo '@!'
 #?pugs todo
-#?rakudo.jvm skip 'unwind'
+#?rakudo.jvm skip 'unwind, RT 121530'
+#?rakudo.moar skip 'unwind, RT 121530'
 {
     my $str;
     try {

S04-phasers/pre-post.t

@@ -115,6 +115,7 @@ dies_ok  { $pt.test(1) }, 'POST receives return value as $_ (failure)';
         }
     }
     #?pugs todo
+    #?rakudo.moar todo 'failing PRE block should not run any other phasers, RT 121531'
     is $str, '(', 'failing PRE runs nothing else';
 }
 
@@ -157,8 +158,7 @@ dies_ok  { $pt.test(1) }, 'POST receives return value as $_ (failure)';
 }
 
 #?niecza skip 'unspecced'
-#?rakudo.parrot todo "POST and exceptions"
-#?rakudo.jvm skip "POST and exceptions"
+#?rakudo skip "POST and exceptions"
 {
     try {
         POST { 0 }