add test case for `null` of (picrin control for)

2014-07-22 21:54:02 +09:00 · 2014-07-22 21:54:02 +09:00 · 52a58e5231
parent 2b9d877d66
commit 52a58e5231
1 changed files with 8 additions and 0 deletions
--- a/contrib/20.for/t/test.scm
+++ b/contrib/20.for/t/test.scm
@ -11,3 +11,11 @@
       (let ((n (in '(1 2 3)))
             (c (in '(a b c))))
         (yield (list n c)))))
+
+(test '((2 a) (2 b) (2 c))
+      (for
+       (let ((n (in '(1 2 3)))
+             (c (in '(a b c))))
+         (if (even? n)
+             (yield (list n c))
+             (null)))))