From 955190d4dae701a53759e6faddae642f682f7ca8 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 5 Sep 2014 23:02:14 +0900 Subject: [PATCH] tests shouldn't require any on an improper list to error. --- tests/srfi-1-tests.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/srfi-1-tests.scm b/tests/srfi-1-tests.scm index 662c8262..8719ef80 100644 --- a/tests/srfi-1-tests.scm +++ b/tests/srfi-1-tests.scm @@ -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)))