repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Use new qt:with-app
Annotate for file /src/qstring.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 (qstring :depends-on bytearray)
2009-04-02 tobias
6
"Tests string <-> QString."
22:17:02 '
7
(let ((object (make-instance 'qt:object)))
2009-07-01 tobias
8
;; (5am:for-all ((string (5am:gen-string))) ;; FIXME (Qt bug?)
2009-04-02 tobias
9
(5am:for-all ((string (5am:gen-one-element "foo"
2009-07-01 tobias
10
"FOO bar"
11:02:20 '
11
""
'
12
(format nil "A~AB" #\Null)
'
13
"öäüƧЪ")))
2009-05-11 tobias
14
(setf (cxx:object-name object) string)
2009-04-02 tobias
15
(5am:is (string= string (cxx:object-name object))))))
22:17:02 '
16
'
17
(5am:test (string-list :depends-on qstring)
'
18
"Test vector <-> QStringList."
'
19
(5am:for-all ((vector (5am:gen-one-element #()
'
20
#("foo")
'
21
#("foo" "bar")
'
22
#("ä" "ö" "ü"))))
'
23
(let ((model (make-instance 'qt:string-list-model
'
24
:args (list vector))))
'
25
(5am:is (equalp vector (cxx:string-list model))))))