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:54:37.000000000 +0100
+++ new-qt.tests/src/variant.lisp	2014-10-30 07:54:37.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)))))))