Permalink
Browse files

rakudo un/refudges

  • Loading branch information...
1 parent 336ec16 commit 827e5921ad25dbec67bbe04bb9caa591570b46f3 @moritz moritz committed Dec 2, 2011
Showing with 5 additions and 9 deletions.
  1. +0 −2 S05-match/arrayhash.t
  2. +5 −7 S32-scalar/undef.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' $ /);
View
@@ -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'

0 comments on commit 827e592

Please sign in to comment.