From 6e539d91c8279d81f80a0f21a5b138967b4889ec Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 13 Jul 2004 12:46:40 +0000 Subject: [PATCH] Completed error tests for SYMBOL-NAME --- ansi-tests/symbol-name.lsp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/ansi-tests/symbol-name.lsp b/ansi-tests/symbol-name.lsp index f2e962e3..3c07259f 100644 --- a/ansi-tests/symbol-name.lsp +++ b/ansi-tests/symbol-name.lsp @@ -33,6 +33,8 @@ (symbol-name :|abcdefg|) "abcdefg") +;;; Error tests + (deftest symbol-name.error.1 (signals-error (symbol-name) program-error) t) @@ -41,3 +43,11 @@ (signals-error (symbol-name 'a 'b) program-error) t) +(deftest symbol-name.error.3 + (loop for x in *mini-universe* + for form = `(signals-error (symbol-name ',x) type-error) + unless (or (symbolp x) (eval form)) + collect x) + nil) + + -- GitLab