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

Added missing error tests for symbol-package, symbol-plist, and symbol-value

parent 6e539d91
No related branches found
No related tags found
No related merge requests found
...@@ -1137,14 +1137,6 @@ ...@@ -1137,14 +1137,6 @@
;;; Various error cases for symbol-related functions ;;; Various error cases for symbol-related functions
(deftest symbol-function.error.1
(signals-error (symbol-function) program-error)
t)
(deftest symbol-function.error.2
(signals-error (symbol-function 'cons nil) program-error)
t)
(deftest symbol-package.error.1 (deftest symbol-package.error.1
(signals-error (symbol-package) program-error) (signals-error (symbol-package) program-error)
t) t)
...@@ -1153,6 +1145,14 @@ ...@@ -1153,6 +1145,14 @@
(signals-error (symbol-package 'cons nil) program-error) (signals-error (symbol-package 'cons nil) program-error)
t) t)
(deftest symbol-package.error.3
(loop for x in *mini-universe*
for form = `(signals-error (symbol-package ',x) type-error)
unless (or (symbolp x) (eval form))
collect x)
nil)
(deftest symbol-plist.error.1 (deftest symbol-plist.error.1
(signals-error (symbol-plist) program-error) (signals-error (symbol-plist) program-error)
t) t)
...@@ -1161,6 +1161,24 @@ ...@@ -1161,6 +1161,24 @@
(signals-error (symbol-plist 'cons nil) program-error) (signals-error (symbol-plist 'cons nil) program-error)
t) t)
(deftest symbol-plist.error.3
(loop for x in *mini-universe*
for form = `(signals-error (symbol-plist ',x) type-error)
unless (or (symbolp x) (eval form))
collect x)
nil)
(deftest symbol-plist.error,4
(loop for x in *mini-universe*
for form = `(signals-error (setf (symbol-plist ',x)
(find-package "CL-USER"))
type-error)
unless (or (symbolp x) (eval form))
collect x)
nil)
(deftest symbol-value.error.1 (deftest symbol-value.error.1
(signals-error (symbol-value) program-error) (signals-error (symbol-value) program-error)
t) t)
...@@ -1168,3 +1186,20 @@ ...@@ -1168,3 +1186,20 @@
(deftest symbol-value.error.2 (deftest symbol-value.error.2
(signals-error (symbol-value '*package* nil) program-error) (signals-error (symbol-value '*package* nil) program-error)
t) t)
(deftest symbol-value.error.3
(loop for x in *mini-universe*
for form = `(signals-error (symbol-value ',x) type-error)
unless (or (symbolp x) (eval form))
collect x)
nil)
(deftest symbol-value.error.4
(loop for x in *mini-universe*
for form = `(signals-error (setf (symbol-value ',x) nil)
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