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))