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 @@
(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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment