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

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

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

(defun run ()
  (let ((results (5am:run :kde.suite)))
    (5am:explain! results)
    (unless (5am:results-status results)
      (error "Testsuite :kde.suite failed."))))

(5am:test connect-to-non-smoke-qobject
  "Test ownership transfer to a no Smoke QObject instance."
  (kde:with-kde ("test" "test" "1")
    (let* ((window (make-instance 'kde:push-button))
           (action-collection (make-instance 'kde:action-collection
                                             :arg0 window))
           (counter 0)
           (action (kde:make-standard-action kde:standard-action.+open+
                                             action-collection
                                             #'(lambda () (incf counter)))))
      (tg:gc :full t)
      (tg:gc :full t)
      (5am:is (= 0 counter))
      (cxx:activate action qt:action.+trigger+)
      (5am:is (= 1 counter)))))