Changeset 22918 for t

Show
Ignore:
Timestamp:
11/08/08 06:06:58 (2 months ago)
Author:
pmichaud
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • t/spec/S02-builtin_data_types/array_ref.t

    r22788 r22918  
    9797is     $array9[0],          42, "recursive array access (0)"; 
    9898is     $array9[1][0],       42, "recursive array access (1)"; 
    99 #?rakudo 2 skip 'get_pmc_keyed not implemented in Perl6Str' 
    10099is     $array9[1][1][0],    42, "recursive array access (2)"; 
    101100is     $array9[1][1][1][0], 42, "recursive array access (3)"; 
    102101 
    103102# changing nested array 
    104 #?rakudo skip 'no applicable methods' 
    105103{ 
    106104    my $array10 = [[2]]; 
    107     is try { $array10[0][0] = 6; $array10[0][0] }, 6, "changing nested array (1)"; 
     105    $array10[0][0] = 6; 
     106    is $array10[0][0], 6, "changing nested array (1)"; 
    108107    my $array11 = [[2,3]]; 
    109     is try { $array11[0][0] = 6; $array11[0][0] }, 6, "changing nested array (2)"; 
     108    $array11[0][0] = 6; 
     109    is $array11[0][0], 6, "changing nested array (2)"; 
    110110} 
    111111