Add tests for RT #113590 (double angles in protoregex names).

Raku · Jun 25, 2012 · ea70649 · ea70649
1 parent 65b73e9
commit ea70649
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/S05-grammar/protoregex.t b/S05-grammar/protoregex.t
@@ -1,14 +1,15 @@
 use v6;
 use Test;
-plan 25;
+plan 26;
 
 grammar Alts {
     token TOP { ^ <alt> $ };
 
     proto token alt {*}
     token alt:sym<foo> { <sym> };
     token alt:sym<bar> { 'bar' };
-    token alt:sym<baz> { 'argl' };
+    token alt:sym«baz» { 'argl' };    # RT #113590
+    token alt:sym«=>»  { <sym> };     # RT #113590
 }
 
 ok (my $match = Alts.parse('foo')), 'can parse with proto regexes (1)';
@@ -25,6 +26,9 @@ ok !Alts.parse('baz'), 'does not match sym of third alternative';
 ok !Alts.parse('aldkfj'), 'does not match completely unrelated string';
 ok !Alts.parse(''), 'does not match empty string';
 
+# RT #113590
+ok Alts.parse('=>'), 'can parse symbol inside double-angles';
+
 
 class SomeActions {
     method alt:sym<baz>($/) {