src/click.lisp
Mon Jul 27 21:28:28 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test ownership transfer of qt:connect to a no Smoke QObject instance.
--- old-kde.tests/src/click.lisp 2014-10-30 07:21:03.000000000 +0100
+++ new-kde.tests/src/click.lisp 2014-10-30 07:21:03.000000000 +0100
@@ -8,15 +8,15 @@
(5am:test click-test
"Test clicking a button."
- (kde::with-kde ("hello" "hello-world" "0.0.1")
- (let ((widget (make-instance 'my-widget))
- (click-count 0))
- (qt:connect (qt:get-signal widget "clicked()")
- #'(lambda ()
- (incf click-count)))
-
- (cxx:set-text widget "Click Me")
+ (kde:with-kde ("hello" "hello-world" "0.0.1")
+ (let ((widget (make-instance 'my-widget))
+ (click-count 0))
+ (qt:connect (qt:get-signal widget "clicked()")
+ #'(lambda ()
+ (incf click-count)))
+
+ (cxx:set-text widget "Click Me")
- (5am:is (= 0 click-count))
- (qt:test.mouse-click widget qt:+left-button+)
- (5am:is (= 1 click-count)))))
+ (5am:is (= 0 click-count))
+ (qt:test.mouse-click widget qt:+left-button+)
+ (5am:is (= 1 click-count)))))