X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=8802d298f199102fe620fbad985e344c8d4f737d;hp=9953906553fa18f5ef68c9e6ed96c81c961ffc98;hb=5964a1161340a16d7dea471372737f2474576ceb;hpb=92e027ee41d33f590ede1e23e27224712980c533

diff --git a/tests/regression.tc b/tests/regression.tc
index 9953906..8802d29 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -340,3 +340,15 @@ testcase {
 
     s   ::= [a-z] [a-z] [a-z] " "* => s
 }
+
+testcase {
+
+    input "a+2";
+    output "";
+
+    s     ::= Expr
+    Expr  ::= [0-9]++
+            | Plus:: left:Expra "+" right:Expr
+    Expra ::= Foo:: ("a" | "b")
+
+}