parcels no longer autoflatten for .elems or .[]

Raku · Sep 2, 2014 · 7060722 · 7060722
1 parent 79039df
commit 7060722
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 7 deletions.
diff --git a/S02-lists/tree.t b/S02-lists/tree.t
@@ -6,7 +6,7 @@ is (1, 2, (3, 4)).tree.elems, 3, 'basic sanity (1)';
 is (1, 2, (3, 4)).tree.join('|'), '1|2|3 4', 'basic sanity (2)';
 ok List.tree === List, '.tree on a type object';
 is (1, 2, (3, 4)).tree(1).join('|'), '1|2|3 4', '.tree(1)';
-is (1, (2, (3, 4))).tree(1).[1].elems, 3,
+is (1, (2, (3, 4))).tree(1).[1].flat.elems, 3,
     '.tree(1) really only goes one level deep';
 
 is (1, (2, (3, 4))).tree(2).[1].elems, 2,

diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t
@@ -245,8 +245,8 @@ Note that non-ASCII tests are kept in quoting-unicode.t
 
 {
     my $rt65654 = 'two words';
-    is «a $rt65654 z».elems,   4, 'interpolate variable with spaces (French)';
-    is <<a $rt65654 z>>.elems, 4, 'interpolate variable with spaces (Texas)';
+    is «a $rt65654 z».flat.elems,   4, 'interpolate variable with spaces (French)';
+    is <<a $rt65654 z>>.flat.elems, 4, 'interpolate variable with spaces (Texas)';
 }
 
 #?niecza todo

diff --git a/S02-types/nested_arrays.t b/S02-types/nested_arrays.t
@@ -28,8 +28,7 @@ plan 8;
     is(+$b, 3, 'Array object length, nested [], outer []s');
 
     is(+@c, 4, 'Array length, nested ()');
-    #?niecza todo
-    is(+$c, 4, 'Array object length, nested ()');
+    is(+$c, 3, 'Array object length, nested ()');
     is(+@d, 1, 'Array length, nested (), outer []s');
     is(+$d, 4, 'Array object length, nested (), outer []s');
 }

diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -622,9 +622,9 @@ sub l () { 1, 2 };
 {
     my $a;
     my @z = (($a) = l, l, l);
-    is($a.elems, 6, 'lhs treats ($a) as list');
+    is($a.elems, 3, 'lhs treats ($a) as list');
     #?rakudo todo 'item/list assignment'
-    is(@z.elems, 6, 'lhs treats ($a) as list');
+    is(@z.elems, 3, 'lhs treats ($a) as list');
 }
 
 {