X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;h=c510eb107412578dcb62f8a9653416fc174eb8fa;hb=2cf0f474c780f5194b373f631bfa8d447114385b;hp=ddc2e9b05afe40ddb3cd7500cfd0d1eac8e95ab1;hpb=f4e8bca5eaa6e6db42299fe2f3852fb2e07508c7;p=sbcl.git

diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp
index ddc2e9b..c510eb1 100644
--- a/tests/mop.impure.lisp
+++ b/tests/mop.impure.lisp
@@ -369,6 +369,20 @@
       (assert (null value))
       (assert (typep error 'error)))))
 
+;;; bug reported by David Morse: direct-subclass update protocol was broken
+(defclass vegetable () ())
+(defclass tomato (vegetable) ())
+(assert (equal (list (find-class 'tomato)) (sb-mop:class-direct-subclasses (find-class 'vegetable))))
+(defclass tomato () ())
+(assert (null (sb-mop:class-direct-subclasses (find-class 'vegetable))))
+
+;;; bug 331: lazy creation of clos classes for defstructs
+(defstruct bug-331-super)
+(defstruct (bug-331-sub (:include bug-331-super)))
+(let ((subs (sb-mop:class-direct-subclasses (find-class 'bug-331-super))))
+  (assert (= 1 (length subs)))
+  (assert (eq (car subs) (find-class 'bug-331-sub))))
+
 
 ;;;; success
 (sb-ext:quit :unix-status 104)