Test to cover RT #131187.

Author: jnthn

S05-metasyntax/angle-brackets.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 94;
+plan 95;
 
 =begin pod
 
@@ -315,4 +315,20 @@ character classes), and those are referenced at the correct spot.
    is('!abc!' ~~ /<<abc>>/, 'abc', 'both word boundaries (\W character)');
 }
 
+# RT #131187
+{
+    grammar Parser {
+        token TOP { <matcher>+ }
+        proto token matcher { * }
+        token matcher:sym<[]> { '[' <( <-[\]]>+ )> ']' }
+        token matcher:sym<lit> { <-[/*?[]>+ }
+    }
+    class RuleCompiler {
+        # Empty action was needed to trigger the bug.
+        method matcher:sym<[]>($/) { }
+    }
+    is Parser.parse('[AB].txt', :actions(RuleCompiler))<matcher>[1], '.txt',
+        'Interaction of quantifier, <(, )>, and action method ok';
+}
+
 # vim: ft=perl6