X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fiter-macros.lisp;h=8ec2a09660d33c925496bde690cc47a445144301;hb=HEAD;hp=a19fd1672b5084ffc9408a37f5aa429ccd7d68bb;hpb=604ea926e93002c3270b5669c2db8655488b8769;p=jscl.git

diff --git a/tests/iter-macros.lisp b/tests/iter-macros.lisp
index a19fd16..8ec2a09 100644
--- a/tests/iter-macros.lisp
+++ b/tests/iter-macros.lisp
@@ -12,15 +12,31 @@
         (= total 15)))
 
 ; DO
-(test (do ((a 0 b)                                 
-           (b 1 (+ a b))                                                          
-           (n 0 (1+ n)))                                                          
-        ((= n 10) 
+(test (do ((a 0 b)
+           (b 1 (+ a b))
+           (n 0 (1+ n)))
+        ((= n 10)
          (= a 55))))
+(test (= 5
+         (do (x) (t 5))))
+(test (= 5
+         (do ((x)) (t 5))))
+(test (= 5
+         (do ((x nil)) (t 5))))
+(test (= 5
+         (do ((x nil nil)) (t 5))))
 
 ; DO*
-(test (do* ((a 0 b)                                 
-            (b 1 (+ a b))                                                          
-            (n 0 (1+ n)))                                                          
-        ((= n 10) 
+(test (do* ((a 0 b)
+            (b 1 (+ a b))
+            (n 0 (1+ n)))
+        ((= n 10)
          (= a 512))))
+(test (= 5
+         (do* (x) (t 5))))
+(test (= 5
+         (do* ((x)) (t 5))))
+(test (= 5
+         (do* ((x nil)) (t 5))))
+(test (= 5
+         (do* ((x nil nil)) (t 5))))