(in-package :cl-smoke.kde.tests)

(5am:in-suite :kde.suite)

(defclass my-widget (kde:push-button)
  ()
  (:metaclass cxx:class))

(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")

      (5am:is (= 0 click-count))
      (qt:test.mouse-click widget qt:+left-button+
                           0 (make-instance 'qt:point) -1)
      (5am:is (= 1 click-count)))))