Sun Aug 30 16:18:04 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test multiple C++ superclasses.

--- old-qt.tests/qt.tests.mbd 2014-10-30 07:02:46.000000000 +0100

+++ new-qt.tests/qt.tests.mbd 2014-10-30 07:02:46.000000000 +0100

@@ -17,7 +17,7 @@

("qbytearray" (:needs "tests"))

("qstring" (:needs "tests"))

("overload" (:needs "tests"))

- ("gc" (:needs "tests"))

+ ("gc" (:needs "tests" "object"))

("variant" (:needs "tests"))

("application" (:needs "tests"))

("signal-slot" (:needs "tests"))

--- old-qt.tests/src/gc.lisp 2014-10-30 07:02:46.000000000 +0100

+++ new-qt.tests/src/gc.lisp 2014-10-30 07:02:46.000000000 +0100

@@ -16,9 +16,8 @@

objects)))

(dotimes (x 2)

(gc :full t))

- (5am:is (eql t

- (some #'(lambda (o) (null (weak-pointer-value o)))

- objects)))))

+ (5am:is (eq t (some #'(lambda (o) (null (weak-pointer-value o)))

+ objects)))))

(defclass lisp-object ()

((a :initform (make-array '(1000 1000) :initial-element 3))

@@ -38,6 +37,10 @@

"Test garbage collection of a QObject."

(test-gc 'qt:object))

+(5am:test gc-multi-object

+ "Test garbage collection of a custom object that has two C++ superclasses."

+ (test-gc 'my-multi-object))

+

(defclass my-gc-object (qt:object)

()

(:metaclass cxx:class))

--- old-qt.tests/src/object.lisp 2014-10-30 07:02:46.000000000 +0100

+++ new-qt.tests/src/object.lisp 2014-10-30 07:02:46.000000000 +0100

@@ -13,3 +13,14 @@

(length (cxx:children object))))

(dolist (c children)

(5am:is (find c (cxx:children object)))))))

+

+(defclass my-multi-object (qt:object qt:graphics-item)

+ ()

+ (:metaclass cxx:class))

+

+(5am:test multi-object

+ "Tests a custom object that has two C++ superclasses."

+ (let ((object (make-instance 'my-multi-object)))

+ (5am:is (string= "" (cxx:object-name object)))

+ (5am:is (= qt:graphics-item.+user-type+

+ (cxx:type object)))))