From f2f0ea17196da970af6817786c03960c8e47ed51 Mon Sep 17 00:00:00 2001
From: usev6 <use_v6@aglaz.de>
Date: Tue, 21 Oct 2014 12:09:33 +0200
Subject: [PATCH] Add test for RT #116597

---
 S05-grammar/parse_and_parsefile.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/S05-grammar/parse_and_parsefile.t b/S05-grammar/parse_and_parsefile.t
index 48238d6b20..83775579d3 100644
--- a/S05-grammar/parse_and_parsefile.t
+++ b/S05-grammar/parse_and_parsefile.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 14;
+plan 15;
 
 # tests .parse and .parsefile methods on a grammar
 
@@ -60,6 +60,17 @@ eval_dies_ok '::No::Such::Grammar.parse()', '.parse on missing grammar dies';
     is $match[0].perl, "Any", 'empty match is Any, not Null PMC access';
 }
 
+# RT #116597
+#?rakudo.parrot todo 'RT #116597'
+{
+    grammar RT116597 {
+        token TOP() { <lit 'a'> };
+        token lit($s) { $s };
+    }
+    lives_ok { RT116597.parse('a') },
+        'can use <rule "param"> form of rule invocation in grammar';
+}
+
 done;
 
 # vim: ft=perl6 expandtab sw=4