.perl no longer has to add the ugly <> for arrays :)

Raku · Aug 26, 2015 · be28de7 · be28de7
1 parent 3d5ee1f
commit be28de7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/S32-array/keys_values.t b/S32-array/keys_values.t
@@ -22,7 +22,7 @@ is(~@array.values, 'a b c d', '@array.values works');
 is(~values(@array), 'a b c d', 'values(@array) works');
 is(+@array.values, +@array, 'we have the same number of values as elements in the array');
 
-my $v := @array.values;
+my $v := @array.values.Array;
 $v.shift; $v.shift;
 is($v.elems, 2, "shifting .values removes an element...");
 is(@array.elems, 4, "...while leaving original list alone.");

diff --git a/S32-array/perl.t b/S32-array/perl.t
@@ -7,7 +7,7 @@ plan 6;
 # simple array
 {
     my @a = 1,2;
-    is @a.perl, '[1, 2]<>',
+    is @a.perl, '[1, 2]',
       'can we serialize a simple array';
     my $ra = EVAL(@a.perl);
     is-deeply $ra, @a, 'can we roundtrip simple array';