tests shouldn't require any on an improper list to error.

This commit is contained in:
Alex Shinn 2014-09-05 23:02:14 +09:00
parent 11f8f163c5
commit 955190d4da

View file

@ -98,7 +98,7 @@
(test #f (find even? '(1 7 3)))
(test #f (any even? '(1 7 3)))
;(test-error (find even? '(1 3 . x)))
(test-error (any even? '(1 3 . x)))
;(test-error (any even? '(1 3 . x)))
;(test 'error/undefined (find even? '(1 2 . x)))
;(test 'error/undefined (any even? '(1 2 . x))) ; success, error or other
(test 6 (find even? (circular-list 1 6 3)))