Skip to content
Browse files

Unfudge some passing autoviv tests.

git-svn-id: http://svn.pugscode.org/pugs@31561 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 6a177b5 commit 02df23962fb2e7ed00e07c20781a63e84f8794e5 pmichaud committed Jul 6, 2010
Showing with 6 additions and 4 deletions.
  1. +6 −4 S32-scalar/undef.t
View
10 S32-scalar/undef.t
@@ -185,18 +185,17 @@ Perl6-specific tests
is(+$hash_r.keys, 0, "dangling hash reference");
}
-#?rakudo skip 'Autovivify arrays'
{
- # types
- # TODO: waiting on my Dog $spot;
-
my Array $an_ary;
ok(!defined($an_ary), "my Array");
ok((try { !defined($an_ary[0]) }), "my Array subscript - Mu");
try { $an_ary.push("blergh") };
ok((try { defined($an_ary.pop) }), "push");
ok((try { !defined($an_ary.pop) }), "comes to shove");
+}
+#?rakudo skip 'Autovivify hashes'
+{
my Hash $a_hash;
ok(!defined($a_hash), "my Hash");
@@ -206,7 +205,10 @@ Perl6-specific tests
$a_hash<blergh> = 1;
ok(defined($a_hash.delete('blergh')), "delete");
ok(!defined($a_hash.delete("blergh")), " - once only");
+}
+
+{
class Dog {};
my Dog $spot;

0 comments on commit 02df239

Please sign in to comment.
Something went wrong with that request. Please try again.