From 092a88b35d6fc65125a9639844dac0cd115380ba Mon Sep 17 00:00:00 2001
From: adam <adam@megacz.com>
Date: Sun, 5 Mar 2006 02:00:39 -0500
Subject: [PATCH] added if-then-else dangling testcase

darcs-hash:20060305070039-5007d-78d48ed02bc5088d6978ae9fb2f685fb775a5fd3.gz
---
 tests/regression.tc |   12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/tests/regression.tc b/tests/regression.tc
index af600f3..cbb50ce 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -359,3 +359,15 @@ testcase {
     z = a:: "a"
 }
 
+testcase {
+    input  "if (x) if (y) z else q";
+    output "if:{ident:{{x}} else:{if:{ident:{{y}} then:{ident:{{z}}}} ident:{{q}}}}";
+
+    s      = e
+    Expr   = if::     "if" "(" Expr ")" IfBody     /ws
+           | ident::  [a-z]++
+    IfBody = else::   Expr             "else" Expr /ws
+           | then::   Expr &~     ~[]* "else" Expr /ws
+    ws     = [ ]**
+}
+
-- 
1.7.10.4