repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Make unit tests work & run tests on darcs record
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)))))
'
8
(5am:is (= 1 (length (qt:properties (make-instance 'qt:object)))))
'
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"))
22:17:02 '
20
'
21
(5am:is (eql nil (qt:property-p o 'foo)))
'
22
(setf (qt:property o 'foo) "bar")
2009-05-31 tobias
23
(5am:is (eql t (qt:property-p o 'foo)))
17:36:58 '
24
(5am:is (string= (qt:property o 'foo) "bar"))))
2009-04-02 tobias
25
22:17:02 '
26
'
27
(5am:test property-int
'
28
"Test get and set property integer"
'
29
(let ((o (make-instance 'qt:object)))
'
30
(5am:for-all ((integer (5am:gen-integer)))
'
31
(setf (qt:property o 'foo-bar) integer)
'
32
(5am:is (= integer (qt:property o 'foo-bar))))))