Commit e5059456 authored by pfdietz's avatar pfdietz
Browse files

Error tests for slot-exists-p.

parent fa1753f6
......@@ -132,3 +132,24 @@
(map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym))))
(t t t t t nil))
;;; Errors tests
(deftest slot-exists-p.error.1
(classify-error (slot-exists-p))
program-error)
(deftest slot-exists-p.error.2
(classify-error (slot-exists-p 'a))
program-error)
(deftest slot-exists-p.error.3
(classify-error (slot-exists-p (make-instance 'slot-exists-p-class-01)))
program-error)
(deftest slot-exists-p.error.4
(classify-error (slot-exists-p (make-instance 'slot-exists-p-class-01)
'a nil))
program-error)
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