Mon Jun 1 00:26:27 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test QList<Object*> to sequence conversion.
hunk ./qt.tests.mbd 25
+ ("object" (:needs "tests"))
addfile ./src/object.lisp
hunk ./src/object.lisp 1
+(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)))))))