src/click.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/click.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/click.lisp 2014-10-30 07:59:40.000000000 +0100
@@ -0,0 +1,41 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+(defclass click-test-widget (qt:push-button)
+ ()
+ (:metaclass cxx:class))
+
+(5am:test (click-test :depends-on with-app)
+ "Test clicking a button."
+ (qt:with-app
+ (let ((widget (make-instance 'click-test-widget))
+ (click-count 0))
+ (qt:connect (qt:get-signal widget "clicked()")
+ #'(lambda ()
+ (incf click-count)))
+
+ (cxx:set-text widget "Hello World")
+ (5am:is (string= "Hello World" (cxx:text widget)))
+
+ (5am:is (= 0 click-count))
+ (qt.test:test.mouse-click widget qt:+left-button+)
+ (5am:is (= 1 click-count))
+ (qt.test:test.mouse-click widget qt:+right-button+)
+ (5am:is (= 1 click-count)))))
+
+(5am:test (click-test-bool :depends-on click-test)
+ "Test clicking a button (bool argument)."
+ (qt:with-app
+ (let ((widget (make-instance 'click-test-widget))
+ (click-count 0))
+ (qt:connect (qt:get-signal widget "clicked(bool)")
+ #'(lambda (checked)
+ (5am:is (eql t checked))
+ (incf click-count)))
+ (5am:is (= 0 click-count))
+ (qt.test:test.mouse-click widget qt:+left-button+)
+ (5am:is (= 1 click-count))
+ (qt.test:test.mouse-click widget qt:+left-button+)
+ (5am:is (= 2 click-count)))))
+