aboutsummaryrefslogtreecommitdiffstats
path: root/csc/loop-test.csc
diff options
context:
space:
mode:
Diffstat (limited to 'csc/loop-test.csc')
-rw-r--r--csc/loop-test.csc9
1 files changed, 9 insertions, 0 deletions
diff --git a/csc/loop-test.csc b/csc/loop-test.csc
index e7341c6..9a74ad4 100644
--- a/csc/loop-test.csc
+++ b/csc/loop-test.csc
@@ -274,6 +274,15 @@
if (>= x 5) return x end)))
+(test loop-if-collect-and
+ (assert-equal
+ '(1 2 3 4 5 6 7 8 9 10)
+ (loop for i from 1 to 10
+ if (odd? i)
+ collect i
+ and collect (+ 1 i))))
+
+
(test loop-collect-advanced
(assert-equal
'(fred bob ken sue alice joe kris sunshine june)