X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fregression.tc;h=af600f3ccc8df303c91a2729577e7b44fd7fbcd7;hb=45d799349e635f1a99e3974e4504a43d5a7aaf33;hp=f911a97835f5423394d7b490de9476887156ee24;hpb=6ba9ea820f9626a7504da6cf442e2cef1601914f;p=sbp.git

diff --git a/tests/regression.tc b/tests/regression.tc
index f911a97..af600f3 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -348,7 +348,14 @@ testcase {
 
     s       = Expr
     Expr    = [0-9]++
-            | Plus:: left:Expra "+" right:Expr
+            | Plus:: (left::Expra) "+" (right::Expr)
     Expra   = Foo:: ("a" | "b")
 
 }
+
+testcase {
+    input "aaaaa";
+    s = top:: z (q::"a"*) z
+    z = a:: "a"
+}
+