X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=tests%2Fregression.tc;h=48a9bae90f00d9614c4ce50049438c99812623bd;hb=74e53cbf7227f5958ff7495abe31cb0462d62c4e;hp=1c47dc472d6cf7685f0e37f20f4e95b72af9fb8a;hpb=e5cfb136bf7fd1352eff1bd87a458aa4ff748537;p=sbp.git diff --git a/tests/regression.tc b/tests/regression.tc index 1c47dc4..48a9bae 100644 --- a/tests/regression.tc +++ b/tests/regression.tc @@ -390,26 +390,10 @@ testcase { x = [123] } + testcase { - input "if (bar!) baz!;"; - output "IfThen:{id:{x:{b x:{a r}}} id:{x:{b x:{a z}}}}"; - - s = Expr ";" - Expr = IfThen - | IfThenElse - | id:: id "!" - id = [a-z] | x:: [a-z] id - IfThen = IfThen:: - "if" "(" Expr ")" - Expr - /ws - IfThenElse = IfThenElse:: - "if" "(" Expr ")" - NotIfThenExpr - "else" - Expr - /ws - NotIfThenExpr = (Expr & [a-z]+) - SpaceIfThen = (~[])*// !IfThen - ws = [\n ]** -} \ No newline at end of file + input "ab"; + + s = a:"a" b:"b" +} +