baghash.t fixes

* .kv returns a list of unitemized parcels, so .tree it before sorting
* do not use # in fudge messages, TAP does not like that
* fudge for moar

Author: moritz

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';
 }