Sat Feb 20 19:06:27 CET 2010 Tobias Rautenkranz * Test overload resolution exact match for long and ulong. diff -rN -u old-qt.tests/src/package.lisp new-qt.tests/src/package.lisp --- old-qt.tests/src/package.lisp 2014-10-30 07:54:41.000000000 +0100 +++ new-qt.tests/src/package.lisp 2014-10-30 07:54:41.000000000 +0100 @@ -1,3 +1,3 @@ (defpackage :qt.tests - (:use :cl :trivial-garbage :bordeaux-threads) + (:use :cl :trivial-garbage :bordeaux-threads :cxx-support) (:export :run)) 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:41.000000000 +0100 +++ new-qt.tests/src/variant.lisp 2014-10-30 07:54:41.000000000 +0100 @@ -45,3 +45,11 @@ '(1 "asdf" #\a))))) (5am:is (string= "QVariantList" (cxx:type-name list))))) + +(5am:test exact-int-type-match + "Test overload resolution exact match long vs. int." + (5am:is (enum= qt:variant.+uint+ + (cxx:type (qt:make-variant 1)))) + (5am:is (enum= qt:variant.+int+ + (cxx:type (qt:make-variant -1))))) + ;; on 32 bit sizeof(long) == sizeof(int) thus not test for that.