repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test multiple C++ superclasses.
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
2009-07-01 tobias
6
"Test QList<Object*> to sequence conversion."
11:02:20 '
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)))))))
2009-08-30 tobias
16
(defclass my-multi-object (qt:object qt:graphics-item)
14:18:04 '
17
()
'
18
(:metaclass cxx:class))
'
19
'
20
(5am:test multi-object
'
21
"Tests a custom object that has two C++ superclasses."
'
22
(let ((object (make-instance 'my-multi-object)))
'
23
(5am:is (string= "" (cxx:object-name object)))
'
24
(5am:is (= qt:graphics-item.+user-type+
'
25
(cxx:type object)))))
'
26