X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fregression.tc;h=faba28d7672f7eb3aff4f64696d20447c76d0d09;hp=cbb50ce5203580eab07cc3408d78b71cb715b96d;hb=944848ba21df8673ba812a764fc641d7fbaea54c;hpb=1ee308307a30c7e610a7dcad2e2cc4253e9ae039

diff --git a/tests/regression.tc b/tests/regression.tc
index cbb50ce..faba28d 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -355,6 +355,7 @@ testcase {
 
 testcase {
     input "aaaaa";
+    output "top:{a q:{{a a a}} a}";
     s = top:: z (q::"a"*) z
     z = a:: "a"
 }
@@ -363,11 +364,11 @@ testcase {
     input  "if (x) if (y) z else q";
     output "if:{ident:{{x}} else:{if:{ident:{{y}} then:{ident:{{z}}}} ident:{{q}}}}";
 
-    s      = e
+    s      = Expr
     Expr   = if::     "if" "(" Expr ")" IfBody     /ws
            | ident::  [a-z]++
-    IfBody = else::   Expr             "else" Expr /ws
-           | then::   Expr &~     ~[]* "else" Expr /ws
+    IfBody = else::   Expr            "else"  Expr /ws
+           | then::   Expr &~   (~[]* "else" !Expr /ws)
     ws     = [ ]**
 }