Permalink
Browse files

added iterator test for end of loop

  • Loading branch information...
sake committed Feb 19, 2010
1 parent 6de1171 commit 15d081ab0f36f741a007453e6d1b33bee90b7c0c
Showing with 2 additions and 1 deletion.
  1. +2 −1 test/testcases.lisp
View
@@ -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))))))

0 comments on commit 15d081a

Please sign in to comment.