Wed May 27 19:29:05 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test CXX:= overload resolution
diff -rN -u old-qt.tests/src/operators.lisp new-qt.tests/src/operators.lisp
--- old-qt.tests/src/operators.lisp 2014-10-30 07:03:13.000000000 +0100
+++ new-qt.tests/src/operators.lisp 2014-10-30 07:03:13.000000000 +0100
@@ -22,6 +22,12 @@
(5am:is (eq (or (/= x1 x2)
(/= y1 y2))
(cxx:/= p1 p2))))))
+
+(5am:test cxx-equality-conversion
+ "Test cxx:= overload resolution."
+ (5am:is (eq t (cxx:= (qt:make-variant "foo") "foo")))
+ (5am:is (eq t (cxx:= "foo" (qt:make-variant "foo") "foo")))
+ (5am:is (eq nil (cxx:= "foo" (qt:make-variant "foo") "bar"))))
(5am:test (cxx-+ :depends-on cxx-equality)
"Test cxx:+"