repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test dynamic properties
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)))))
15:04:11 '
9
(5am:is (= 1 (length (qt:class-properties (find-class 'qt:qslot))))))
2009-04-02 tobias
10
22:17:02 '
11
(5am:test (property :depends-on qstring)
'
12
"Tests get and set property string"
'
13
(let ((o (make-instance 'qt:object)))
'
14
(5am:is (eql t (qt:property-p o "objectName")))
2009-07-22 tobias
15
(5am:is (eql t (qt:property-p o 'object-name)))
2009-04-02 tobias
16
2009-07-22 tobias
17
(setf (qt:property o 'object-name) "fooBar")
22:22:47 '
18
(5am:is (string= (qt:property o 'object-name) "fooBar"))
2009-04-02 tobias
19
(5am:is (string= (qt:property o "objectName") "fooBar"))
2009-04-08 tobias
20
(5am:is (string= (cxx:object-name o) "fooBar"))
2009-04-02 tobias
21
22:17:02 '
22
(5am:is (eql nil (qt:property-p o 'foo)))
'
23
(setf (qt:property o 'foo) "bar")
2009-05-27 tobias
24
(5am:is (= 2 (length (qt:properties o))))
17:28:53 '
25
(5am:is (member 'foo (qt:properties o)))
2009-05-31 tobias
26
(5am:is (eql t (qt:property-p o 'foo)))
17:36:58 '
27
(5am:is (string= (qt:property o 'foo) "bar"))))
2009-04-02 tobias
28
22:17:02 '
29
'
30
(5am:test property-int
'
31
"Test get and set property integer"
'
32
(let ((o (make-instance 'qt:object)))
'
33
(5am:for-all ((integer (5am:gen-integer)))
'
34
(setf (qt:property o 'foo-bar) integer)
'
35
(5am:is (= integer (qt:property o 'foo-bar))))))