test for RT #74072, [] should not flatten in cross meta op

Raku · Oct 1, 2011 · 875886c · 875886c
1 parent 4eccfcc
commit 875886c
Showing 1 changed file with 4 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 26;
+plan 27;
 
 # L<S03/List infix precedence/the cross operator>
 ok eval('<a b> X <c d>'), 'cross non-meta operator parses';
@@ -107,4 +107,7 @@ 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';
 
+#?rakudo todo 'RT 74072'
+is ([1,2] X~ <a b>), '1 2a1 2b', '[] does not flatten';
+
 # vim: ft=perl6