repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test QList<Object*> to sequence conversion.
Annotate for file src/object.lisp
2009-05-31 tobias
1
(in-package :qt.tests)
22:26:27 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test test-children
'
6
"Test QList<Object*> to sequence conversion."
'
7
(let ((object (make-instance 'qt:object)))
'
8
(5am:is (= 0 (length (cxx:children object))))
'
9
(let ((children (mapcar #'(lambda (parent)
'
10
(make-instance 'qt:object :args (list parent)))
'
11
(list object object object))))
'
12
(5am:is (= (length children)
'
13
(length (cxx:children object))))
'
14
(dolist (c children)
'
15
(5am:is (find c (cxx:children object)))))))