Test ownership transfer of qt:connect to a no Smoke QObject instance.
Annotate for file src/click.lisp
2010-04-03 tobias 1 (in-package :kde.tests)
2009-04-02 tobias 2
22:18:27 ' 3 (5am:in-suite :kde.suite)
' 4
' 5 (defclass my-widget (kde:push-button)
' 6 ()
2009-06-11 tobias 7 (:metaclass cxx:class))
2009-04-02 tobias 8
22:18:27 ' 9 (5am:test click-test
' 10 "Test clicking a button."
2009-07-27 tobias 11 (kde:with-kde ("hello" "hello-world" "0.0.1")
19:28:28 ' 12 (let ((widget (make-instance 'my-widget))
' 13 (click-count 0))
' 14 (qt:connect (qt:get-signal widget "clicked()")
' 15 #'(lambda ()
' 16 (incf click-count)))
' 17
' 18 (cxx:set-text widget "Click Me")
2009-04-02 tobias 19
2009-07-27 tobias 20 (5am:is (= 0 click-count))
19:28:28 ' 21 (qt:test.mouse-click widget qt:+left-button+)
' 22 (5am:is (= 1 click-count)))))