Commit f10d61e8 authored by pfdietz's avatar pfdietz
Browse files

Another test of customized change-class.

parent 97e29009
......@@ -418,6 +418,20 @@
(t nil nil)
123)
(deftest change-class.6.3
(let* ((class (find-class 'change-class-class-06))
(obj (make-instance class :a 'bad)))
(values
(map-slot-boundp* obj '(a b c))
(eqt obj (change-class obj class :a 'also-bad))
(map-slot-boundp* obj '(a b c))
(slot-value obj 'a)
))
(t nil nil)
t
(t nil nil)
123)
;;; Error tests
......
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