Permalink
Browse files

[spec]: Clean up some arrayref tests for rakudo.

git-svn-id: http://svn.pugscode.org/pugs@22918 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent a56872b commit ce4097f370b3165afaed228fd42e8eb57f7c1e2e pmichaud committed Nov 8, 2008
Showing with 4 additions and 4 deletions.
  1. +4 −4 S02-builtin_data_types/array_ref.t
@@ -96,17 +96,17 @@ isa_ok $array9, Array;
isa_ok $array9[1], Array;
is $array9[0], 42, "recursive array access (0)";
is $array9[1][0], 42, "recursive array access (1)";
-#?rakudo 2 skip 'get_pmc_keyed not implemented in Perl6Str'
is $array9[1][1][0], 42, "recursive array access (2)";
is $array9[1][1][1][0], 42, "recursive array access (3)";
# changing nested array
-#?rakudo skip 'no applicable methods'
{
my $array10 = [[2]];
- is try { $array10[0][0] = 6; $array10[0][0] }, 6, "changing nested array (1)";
+ $array10[0][0] = 6;
+ is $array10[0][0], 6, "changing nested array (1)";
my $array11 = [[2,3]];
- is try { $array11[0][0] = 6; $array11[0][0] }, 6, "changing nested array (2)";
+ $array11[0][0] = 6;
+ is $array11[0][0], 6, "changing nested array (2)";
}
# creating a AoA using ";" doesn't work any longer

0 comments on commit ce4097f

Please sign in to comment.