Permalink
Browse files

test iteration for parcel-of-parcel.tree

  • Loading branch information...
1 parent 18f3c2b commit eec04b7a6cca9d81d83f4db4d42fc5f0098c5a24 @moritz moritz committed Jul 22, 2012
Showing with 7 additions and 1 deletion.
  1. +7 −1 S02-lists/tree.t
View
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 8;
+plan 9;
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)';
@@ -17,3 +17,9 @@ is ~((1, 2), (3, 4)).tree(*.join('|')), '1|2 3|4',
#?rakudo skip 'Any.tree(*@list) NYI'
is (1, ((2, 3), (4, 5))).tree(*.join('|'), *.join('+')).join('-'),
'1-2|3+4|5', '.tree with multiple Whatever-closures';
+
+{
+ my $t = '';
+ $t ~= "|$_" for (<a b c> Z <X Y Z>).tree;
+ is $t, "|a X|b Y|c Z", '(parcel of parcels).tree';
+}

0 comments on commit eec04b7

Please sign in to comment.