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:58:02.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp	2014-10-30 07:58:02.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")))))