Mon Jun 1 00:26:27 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test QList<Object*> to sequence conversion.

--- old-qt.tests/qt.tests.mbd 2014-10-30 07:03:06.000000000 +0100

+++ new-qt.tests/qt.tests.mbd 2014-10-30 07:03:06.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"))))))

--- old-qt.tests/src/object.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.tests/src/object.lisp 2014-10-30 07:03:06.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)))))))