src/variant.lisp
Mon May 11 16:18:40 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test setf value for variant, nil variant & operator conversion,
--- old-qt.tests/src/variant.lisp 2014-10-30 07:58:20.000000000 +0100
+++ new-qt.tests/src/variant.lisp 2014-10-30 07:58:20.000000000 +0100
@@ -22,3 +22,20 @@
(list "foo" "bar"))))
(5am:is (eq object (qt:value (qt:make-lisp-variant object))))))
+
+(5am:test variant-color
+ "The C++ overload resolution for QColor:operator QVariant()."
+ (let* ((color (make-instance 'qt:color))
+ (variant1 (qt:make-variant color))
+ (variant2 (qt:make-variant color)))
+ (5am:is (eq t (cxx:= variant1 variant2)))))
+
+(5am:test nil-variant
+ "Make a nil variant."
+ (5am:is (eq nil (qt:variant-boundp (qt:make-variant)))))
+
+(5am:test setf-variant-value
+ "Set a qt:variant."
+ (let ((variant (qt:make-variant)))
+ (5am:is (= 1 (setf (qt:value variant) 1)))
+ (5am:is (= 1 (qt:value variant)))))