Skip to content
Snippets Groups Projects
Commit 6e539d91 authored by pfdietz's avatar pfdietz
Browse files

Completed error tests for SYMBOL-NAME

parent c62e802b
No related branches found
No related tags found
No related merge requests found
...@@ -33,6 +33,8 @@ ...@@ -33,6 +33,8 @@
(symbol-name :|abcdefg|) (symbol-name :|abcdefg|)
"abcdefg") "abcdefg")
;;; Error tests
(deftest symbol-name.error.1 (deftest symbol-name.error.1
(signals-error (symbol-name) program-error) (signals-error (symbol-name) program-error)
t) t)
...@@ -41,3 +43,11 @@ ...@@ -41,3 +43,11 @@
(signals-error (symbol-name 'a 'b) program-error) (signals-error (symbol-name 'a 'b) program-error)
t) 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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment