Add test for RT #121692

Raku · Apr 21, 2014 · 999caf1 · 999caf1
1 parent 162bbf4
commit 999caf1
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S13-overloading/metaoperators.t b/S13-overloading/metaoperators.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 9;
+plan 10;
 
 #L<S06/Operator overloading>
 
@@ -30,4 +30,11 @@ is ~(('OMG','BBQ') <<wtf<< ('BBQ','OMG')), 'OMGWTFBBQ BBQWTFOMG', '<<...<< hyper
 is ~(('OMG','BBQ') >>wtf>> ('BBQ','OMG')), 'OMGWTFBBQ BBQWTFOMG', '>>...>> hyper generated';
 is ~(('OMG','BBQ') <<wtf>> ('BBQ','OMG')), 'OMGWTFBBQ BBQWTFOMG', '<<...>> hyper generated';
 
+# RT 121692
+#?rakudo skip "couldn't find final ']'"
+{
+    sub foo { $^a ~ $^b };
+    is [[&foo]] <a b c d e>, 'abcde', "can we use sub as an op between[]";
+}
+
 # vim: ft=perl6