repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test adding a child to a no smoke object and fixes for :qt :qt-impl split.
Annotate for file src/properties.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:in-suite :qt.suite)
'
4
2009-04-06 tobias
5
(5am:test property-list
11:50:14 '
6
"Test properties"
'
7
(5am:is (= 1 (length (qt:class-properties (find-class 'qt:object)))))
2009-06-11 tobias
8
(5am:is (= 1 (length (qt:properties (make-instance 'qt:object))))))
2009-04-02 tobias
9
22:17:02 '
10
(5am:test (property :depends-on qstring)
'
11
"Tests get and set property string"
'
12
(let ((o (make-instance 'qt:object)))
'
13
(5am:is (eql t (qt:property-p o "objectName")))
2009-07-22 tobias
14
(5am:is (eql t (qt:property-p o 'object-name)))
2009-04-02 tobias
15
2009-07-22 tobias
16
(setf (qt:property o 'object-name) "fooBar")
22:22:47 '
17
(5am:is (string= (qt:property o 'object-name) "fooBar"))
2009-04-02 tobias
18
(5am:is (string= (qt:property o "objectName") "fooBar"))
2009-04-08 tobias
19
(5am:is (string= (cxx:object-name o) "fooBar"))
2009-04-02 tobias
20
22:17:02 '
21
(5am:is (eql nil (qt:property-p o 'foo)))
'
22
(setf (qt:property o 'foo) "bar")
2009-05-27 tobias
23
(5am:is (= 2 (length (qt:properties o))))
17:28:53 '
24
(5am:is (member 'foo (qt:properties o)))
2009-05-31 tobias
25
(5am:is (eq t (qt:property-p o 'foo)))
17:36:58 '
26
(5am:is (string= (qt:property o 'foo) "bar"))
'
27
'
28
(qt:remove-property o 'foo)
'
29
(5am:is (eq nil (qt:property-p o 'foo)))))
2009-04-02 tobias
30
22:17:02 '
31
'
32
(5am:test property-int
'
33
"Test get and set property integer"
'
34
(let ((o (make-instance 'qt:object)))
'
35
(5am:for-all ((integer (5am:gen-integer)))
'
36
(setf (qt:property o 'foo-bar) integer)
'
37
(5am:is (= integer (qt:property o 'foo-bar))))))