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