From 8b00d2d1919c204ff653863ff0485f483d418ff4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 27 Sep 2015 16:26:13 -0700 Subject: 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. --- tests/012/ifa.tl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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)) -- cgit v1.2.3