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

Another test of anonymous classes in type-of.

parent 91c81c55
No related branches found
No related tags found
No related merge requests found
......@@ -69,16 +69,19 @@
(type-of (make-instance 'type-of.example-class))
type-of.example-class)
(defparameter *type-of.example-class-2*
(defclass type-of.example-class-2 () ((a) (b) (c))))
(deftest type-of.8
(progn
(setf (class-name *type-of.example-class-2*) nil)
(eqt (type-of (make-instance *type-of.example-class-2*))
*type-of.example-class-2*))
(let ((class (eval '(defclass type-of.example-class-2 () ((a) (b) (c))))))
(setf (class-name class) nil)
(eqt (type-of (make-instance class)) class))
t)
(deftest type-of.9
(let ((class (eval '(defclass type-of.example-class-3 () ((a) (b) (c))))))
(setf (find-class 'type-of.example-class-3) nil)
(eqt (type-of (make-instance class)) class))
t)
;;; Error tests
(deftest type-of.error.1
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment