added iterator test for end of loop

sake · Feb 19, 2010 · 15d081ab0f36f741a007453e6d1b33bee90b7c0c · 15d081a
1 parent 6de1171
commit 15d081ab0f36f741a007453e6d1b33bee90b7c0c
Unified Split

Showing with 2 additions and 1 deletion.

+2 −1 test/testcases.lisp
diff --git a/test/testcases.lisp b/test/testcases.lisp
@@ -99,4 +99,5 @@
       (loop for i from 0 to 100 do
 	   (multiple-value-bind (a b c) (iter)
 	     (declare (ignore a c))
-	     (is (= i b)))))))
+	     (is (= i b))))
+      (is (eq nil (iter))))))