repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
Annotate for file src/variant.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test (variant-string :depends-on qstring)
'
6
"Test qt:variant <-> string conversion."
'
7
; (5am:for-all ((string (5am:gen-string)))
'
8
(5am:for-all ((string (5am:gen-one-element "foo"
'
9
"Foo Bar")))
'
10
(5am:is (string= string (qt:from-variant (qt:make-variant string))))))
'
11
'
12
(5am:test variant-int
'
13
"Test qt:variant <-> string conversion."
'
14
(5am:for-all ((integer (5am:gen-integer)))
'
15
(5am:is (= integer (qt:from-variant (qt:make-variant integer))))))
'
16
'
17
(5am:test lisp-variant
'
18
"Test qt:variant <-> lisp object conversion."
'
19
(5am:for-all ((object (5am:gen-one-element #(1 2 3)
'
20
(list "foo" "bar"))))
'
21
(5am:is (eq object (qt:from-variant (qt:make-lisp-variant object))))))
'
22