X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=af600f3ccc8df303c91a2729577e7b44fd7fbcd7;hp=60b473637d983f7dfad0cc913aa77e4b44bd2457;hb=45d799349e635f1a99e3974e4504a43d5a7aaf33;hpb=61446887e40e11e0a7374e591e6d6c25c922093f

diff --git a/tests/regression.tc b/tests/regression.tc
index 60b4736..af600f3 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -329,8 +329,8 @@ testcase {
 testcase {
     input "abc                         ";
 
-    s     = q " "* => s
-    q     = [a-z] [a-z] [a-z] => a3
+    s     = s2:: q " "*
+    q     = a3:: [a-z] [a-z] [a-z]
          &~ ~[] "b" ~[]*
 }
 
@@ -338,17 +338,24 @@ testcase {
     input "abc                         ";
     output "s:{a b c}";
 
-    s     = [a-z] [a-z] [a-z] " "* => s
+    s     = s:: [a-z] [a-z] [a-z] " "*
 }
 
 testcase {
 
     input "a+2";
-    output "";
+    output "Plus:{left:{Foo} right:{{2}}}";
 
     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"
+}
+