From 251b970bd35d267dce919eb54f071af4b422146d Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 18 Oct 2002 12:04:30 +0000
Subject: [PATCH] Added corner case tests for EVERY.

---
 ansi-tests/every.lsp | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/ansi-tests/every.lsp b/ansi-tests/every.lsp
index c334fdac..04da1c98 100644
--- a/ansi-tests/every.lsp
+++ b/ansi-tests/every.lsp
@@ -71,6 +71,49 @@
   (every #'(lambda (x) (eql x #\a)) "aaaaaabaaaa")
   nil)
 
+(deftest every.15
+  (classify-error (every 1 '(a b c)))
+  type-error)
+
+(deftest every.16
+  (classify-error (every #\a '(a b c)))
+  type-error)
+
+(deftest every.17
+  (classify-error (every #() '(a b c)))
+  type-error)
+
+(deftest every.18
+  (every 'null '(nil nil t nil))
+  nil)
+
+(deftest every.19
+  (not (every 'null '(nil nil nil nil)))
+  nil)
+
+(deftest every.20
+  (classify-error (every #'null 'a))
+  type-error)
+
+(deftest every.21
+  (classify-error (every #'null 100))
+  type-error)
+
+(deftest every.22
+  (classify-error (every #'null 'a))
+  type-error)
+
+(deftest every.23
+  (classify-error (every #'eq () 'a))
+  type-error)
+
+
+
+
+
+
+
+
 
 
 
-- 
GitLab