Wed Sep 2 14:02:23 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test Lisp to QList<QVariant> and test user conversion sequence for return values.
diff -rN -u old-qt.tests/src/overload.lisp new-qt.tests/src/overload.lisp
--- old-qt.tests/src/overload.lisp 2014-10-30 07:02:44.000000000 +0100
+++ new-qt.tests/src/overload.lisp 2014-10-30 07:02:44.000000000 +0100
@@ -26,7 +26,7 @@
(defmethod cxx:data ((list my-list-model) index role)
(incf (counter list))
(if (< (cxx:row index) 2)
- (qt:make-variant (cxx:row index))
+ (cxx:row index) ;; cl-smoke converts to the required qt:variant
(qt:make-variant)))
(defmethod cxx:row-count ((list my-list-model) parent)
diff -rN -u old-qt.tests/src/variant.lisp new-qt.tests/src/variant.lisp
--- old-qt.tests/src/variant.lisp 2014-10-30 07:02:44.000000000 +0100
+++ new-qt.tests/src/variant.lisp 2014-10-30 07:02:44.000000000 +0100
@@ -39,3 +39,9 @@
(let ((variant (qt:make-variant)))
(5am:is (= 1 (setf (qt:value variant) 1)))
(5am:is (= 1 (qt:value variant)))))
+
+(5am:test variant-list
+ (let ((list (qt:make-variant (map 'vector #'qt:make-variant
+ '(1 "asdf" #\a)))))
+ (5am:is (string= "QVariantList"
+ (cxx:type-name list)))))