Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

rakudo un/refudges

  • Loading branch information...
commit 827e5921ad25dbec67bbe04bb9caa591570b46f3 1 parent 336ec16
@moritz moritz authored
Showing with 5 additions and 9 deletions.
  1. +0 −2  S05-match/arrayhash.t
  2. +5 −7 S32-scalar/undef.t
View
2  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' $ /);
View
12 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'
Please sign in to comment.
Something went wrong with that request. Please try again.