repos / kde.tests / headblob
summary | shortlog | log | tree | annotate | headblob | filehistory
plain
/ src /
/src/click.lisp
1 (in-package :cl-smoke.kde.tests)
2
3 (5am:in-suite :kde.suite)
4
5 (defclass my-widget (kde:push-button)
6 ()
7 (:metaclass cxx:class))
8
9 (5am:test click-test
10 "Test clicking a button."
11 (kde:with-kde ("hello" "hello-world" "0.0.1")
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")
19
20 (5am:is (= 0 click-count))
21 (qt:test.mouse-click widget qt:+left-button+
22 0 (make-instance 'qt:point) -1)
23 (5am:is (= 1 click-count)))))
Crece desde el pueblo el futuro / crece desde el pie