rakudo un/refudges

Raku · Dec 2, 2011 · 827e592 · 827e592
1 parent 336ec16
commit 827e592
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 9 deletions.
diff --git a/S05-match/arrayhash.t b/S05-match/arrayhash.t
@@ -12,11 +12,9 @@ plan 8;
 # Matching against an array should be true if any of the values match.
 my @a = ('a', 'b' );
 ok(@a ~~ / 'b' /);
-#?rakudo todo 'nom regression'
 #?niecza todo
 ok(@a ~~ / ^ 'b' /);
 ok(@a ~~ / ^ 'a' /);
-#?rakudo todo 'nom regression'
 #?niecza todo
 ok(@a ~~ / ^ 'a' $ /);
 

diff --git a/S32-scalar/undef.t b/S32-scalar/undef.t
@@ -184,16 +184,14 @@ Perl6-specific tests
     is(+$hash_r.keys, 0, "dangling hash reference");
 }
 
+#?rakudo skip 'autovivification'
 {
     my Array $an_ary;
     ok(!defined($an_ary), "my Array");
-    #?rakudo todo 'nom regression'
-    ok((try { !defined($an_ary[0]) }), "my Array subscript - Mu");
-    try { $an_ary.push("blergh") };
-    #?rakudo todo 'nom regression'
-    ok((try { defined($an_ary.pop) }), "push");
-    #?rakudo todo 'nom regression'
-    ok((try { !defined($an_ary.pop) }), "comes to shove");
+    nok( defined($an_ary[0]) , "my Array subscript - Mu");
+    $an_ary.push("blergh");
+    ok(defined($an_ary.pop), "push");
+    nok(defined($an_ary.pop), "comes to shove");
 }
 
 #?rakudo skip 'Autovivify hashes'