More tests for ifa/conda.

* tests/012/ifa.tl: New test cases which test the expansion
when the it-form is a place and there are forms before
and after it.

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/012/ifa.tl b/tests/012/ifa.tl
index 214f752b..91fa4512 100644
--- a/tests/012/ifa.tl
+++ b/tests/012/ifa.tl
@@ -42,3 +42,18 @@
           (inc it))
         l)
       (1 3 3))
+
+(test (let ((l (list 1 2 3 4 5)))
+        (conda
+          ((< 2 (third l) 4)
+           (inc it)))
+        l)
+      (1 2 4 4 5))
+
+(test (let* ((x 2) (y 4)
+             (l (list 1 2 3 4 5)))
+        (conda
+          ((< x (third l) y)
+           (inc it)))
+        l)
+      (1 2 4 4 5))