Commit 6e539d91 authored by pfdietz's avatar pfdietz

Completed error tests for SYMBOL-NAME

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