repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test QList translation
Annotate for file /src/qlist.lisp
2010-01-25 tobias
1
(in-package :qt.tests)
18:51:13 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test variant-list
'
6
"QList<Variant>"
'
7
(let ((variants (vector (qt:make-variant "foo"))))
'
8
(5am:is (every #'cxx:=
'
9
variants
'
10
(cxx:to-list (qt:make-variant variants))))))
'
11