Add tests for RT #120973

Author: usev6

S03-metaops/cross.t

@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 31;
+plan 34;
 
 # L<S03/List infix precedence/the cross operator>
 ok EVAL('<a b> X <c d>'), 'cross non-meta operator parses';
@@ -128,4 +128,19 @@ is (1,2 X ( <a b> X "x")).join, '1a1x1b1x2a2x2b2x',
     eval_dies_ok 'my %foo XX= 1', "cross doesn't handle assignment";
 }
 
+# RT #120973
+{
+    my @rt120973 = <a b> X <1 2>.map({$_});
+    is @rt120973, <a 1 a 2 b 1 b 2>,
+    'cross product with a .map in the rhs produces expected result';
+
+    @rt120973 = <a b>.map({$_}) X <1 2>;
+    is @rt120973, <a 1 a 2 b 1 b 2>,
+    'cross product with a .map in lhs produces expected result';
+
+    @rt120973 = <a b>.map({$_}) X <1 2>.map({$_});
+    is @rt120973, <a 1 a 2 b 1 b 2>,
+    'cross product with a .map in lhs and rhs produces expected result';
+}
+
 # vim: ft=perl6