Diff of /tests/mop.pure.lisp [458751] .. [2ea111]  Maximize  Restore

Switch to side-by-side view

--- a/tests/mop.pure.lisp
+++ b/tests/mop.pure.lisp
@@ -81,10 +81,11 @@
           when results do (cerror "continue" "~A" results))))
 
 ;;; AMOP says these are the defaults
-(assert (equal (list (find-class 'standard-object))
-               (sb-mop:class-direct-superclasses (make-instance 'standard-class))))
-(assert (equal (list (find-class 'sb-mop:funcallable-standard-object))
-               (sb-mop:class-direct-superclasses (make-instance 'sb-mop:funcallable-standard-class))))
+(with-test (:name :standard-direct-superclasses)
+  (assert (equal (list (find-class 'standard-object))
+                 (sb-mop:class-direct-superclasses (make-instance 'standard-class))))
+  (assert (equal (list (find-class 'sb-mop:funcallable-standard-object))
+                 (sb-mop:class-direct-superclasses (make-instance 'sb-mop:funcallable-standard-class)))))
 
 (with-test (:name :bug-936513)
   ;; This used to fail as ENSURE-GENERIC-FUNCTION wanted a list specifying

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks