X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fifthen.tc;h=6d23a5235f799ea89771745bec0ed4a91d5bccad;hp=dbb613d22ce913c7ed8104f915d9ae5cf116295d;hb=acfe58223b9a0f78e64a14a1ca5d5998626ee3fe;hpb=b205c5ee125119b0372328b70e8a66164df18fd0

diff --git a/tests/ifthen.tc b/tests/ifthen.tc
index dbb613d..6d23a52 100644
--- a/tests/ifthen.tc
+++ b/tests/ifthen.tc
@@ -4,10 +4,9 @@ testcase {
 
   s             = Expr
 
-  Expr          =              IfThen
-                | IfThenElse:: IfThen "else" Expr /ws &~ IfThen
+  Expr          = IfThen::     "if" "(" Expr ")" Expr             /ws
+                | IfThenElse:: "if" "(" Expr ")" (x:: Expr "else" Expr /ws &~ Expr) /ws
                 | Identifier:: [a-z]++ 
-  IfThen        = IfThen:: "if" "(" Expr ")" Expr             /ws
 
   ws            = [\n ]**