src/click.lisp
Wed Apr 8 17:10:42 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test receiving C++ argument signals
--- old-qt.tests/src/click.lisp 2014-10-30 07:59:10.000000000 +0100
+++ new-qt.tests/src/click.lisp 2014-10-30 07:59:10.000000000 +0100
@@ -13,6 +13,7 @@
(click-count 0))
(qt:connect (qt:get-signal widget "clicked()")
#'(lambda ()
+ (5am:is (eq widget (qt:sender)))
(incf click-count)))
(cxx:set-text widget "Hello World")
@@ -31,7 +32,7 @@
(click-count 0))
(qt:connect (qt:get-signal widget "clicked(bool)")
#'(lambda (checked)
- (5am:is (eql t checked))
+ (5am:is (eql nil checked))
(incf click-count)))
(5am:is (= 0 click-count))
(qt.test:test.mouse-click widget qt:+left-button+)
@@ -39,3 +40,5 @@
(qt.test:test.mouse-click widget qt:+left-button+)
(5am:is (= 2 click-count)))))
+
+