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

diff --git a/tests/regression.tc b/tests/regression.tc
index 28ca476..faba28d 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -348,13 +348,27 @@ 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
+    output "top:{a q:{{a a a}} a}";
+    s = top:: z (q::"a"*) z
     z = a:: "a"
-}
\ No newline at end of file
+}
+
+testcase {
+    input  "if (x) if (y) z else q";
+    output "if:{ident:{{x}} else:{if:{ident:{{y}} then:{ident:{{z}}}} ident:{{q}}}}";
+
+    s      = Expr
+    Expr   = if::     "if" "(" Expr ")" IfBody     /ws
+           | ident::  [a-z]++
+    IfBody = else::   Expr            "else"  Expr /ws
+           | then::   Expr &~   (~[]* "else" !Expr /ws)
+    ws     = [ ]**
+}
+