Tue May 26 11:59:49 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test argument conversion/promotion when emiting signals
diff -rN -u old-qt.tests/src/signal-slot.lisp new-qt.tests/src/signal-slot.lisp
--- old-qt.tests/src/signal-slot.lisp 2014-10-30 07:03:16.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp 2014-10-30 07:03:16.000000000 +0100
@@ -174,3 +174,16 @@
(5am:is (= 1 count))
(cxx:insert-rows model 0 3)
(5am:is (= 2 count)))))
+
+(5am:test (emit-user-conversion :depends-on emit-qstring-signal)
+ "Emit a signal with a user conversion of the argument."
+ (qt:with-app
+ (let ((combobox (make-instance 'qt:text-edit))
+ (set-font (qt:make-signal)))
+ (qt:connect set-font
+ (qt:get-slot combobox "setCurrentFont(QFont)"))
+ (5am:is (cxx:operator== (cxx:current-font combobox)
+ (make-instance 'qt:font)))
+ (funcall set-font "Times")
+ (5am:is (cxx:operator== (cxx:current-font combobox)
+ "Times")))))