tests cross with three lists

Raku · Oct 1, 2011 · 4eccfcc · 4eccfcc
1 parent 44ff863
commit 4eccfcc
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S03-metaops/cross.t b/S03-metaops/cross.t
@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 25;
+plan 26;
 
 # L<S03/List infix precedence/the cross operator>
 ok eval('<a b> X <c d>'), 'cross non-meta operator parses';
@@ -103,4 +103,8 @@ is (1 X* 3,4), (3, 4), 'cross-product works with scalar left side';
 is (1, 2 X* 3), (3, 6), 'cross-product works with scalar right side';
 is (1 X* 3), (3), 'cross-product works with scalar both sides';
 
+is (<a b> X <c d> X < e f>).join(','),
+    'a,c,e,a,c,f,a,d,e,a,d,f,b,c,e,b,c,f,b,d,e,b,d,f',
+    'cross works with three lists';
+
 # vim: ft=perl6