Mon Jun  1 00:26:27 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test QList<Object*> to sequence conversion.
diff -rN -u old-qt.tests/qt.tests.mbd new-qt.tests/qt.tests.mbd
--- old-qt.tests/qt.tests.mbd	2014-10-30 07:57:27.000000000 +0100
+++ new-qt.tests/qt.tests.mbd	2014-10-30 07:57:27.000000000 +0100
@@ -22,6 +22,7 @@
            ("signal-slot" (:needs "tests"))
            ("operators" (:needs "tests"))
            ("undo" (:needs "tests"))
+           ("object" (:needs "tests"))
            ("thread" (:needs "tests"))
            ("properties" (:needs "tests"))
            ("click" (:needs "tests"))))))
diff -rN -u old-qt.tests/src/object.lisp new-qt.tests/src/object.lisp
--- old-qt.tests/src/object.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/object.lisp	2014-10-30 07:57:27.000000000 +0100
@@ -0,0 +1,15 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+(5am:test test-children
+    "Test QList<Object*> to sequence conversion."
+    (let ((object (make-instance 'qt:object)))
+      (5am:is (= 0 (length (cxx:children object))))
+      (let ((children (mapcar #'(lambda (parent)
+                                  (make-instance 'qt:object :args (list parent)))
+                              (list object object object))))
+        (5am:is (= (length children)
+                   (length (cxx:children object))))
+        (dolist (c children)
+          (5am:is (find c (cxx:children object)))))))