Sat Feb 20 22:06:45 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test (qt:value (qt:make-variant qt:+green+))
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:34.000000000 +0100
+++ new-qt.tests/src/variant.lisp 2014-10-30 07:02:34.000000000 +0100
@@ -53,3 +53,9 @@
(5am:is (enum= qt:variant.+int+
(cxx:type (qt:make-variant -1)))))
;; on 32 bit sizeof(long) == sizeof(int) thus not test for that.
+
+(5am:test variant-color
+ "Test QColor variant."
+ (let ((color (make-instance 'qt:color :arg0 qt:+green+)))
+ (5am:is (string= (cxx:name color)
+ (cxx:name (qt:value (qt:make-variant color)))))))