1 (in-package :cl-smoke.kde.tests)
3 (5am:def-suite :kde.suite)
5 (5am:in-suite :kde.suite)
8 (let ((results (5am:run :kde.suite)))
10 (unless (5am:results-status results)
11 (error "Testsuite :kde.suite failed."))))
13 (5am:test connect-to-non-smoke-qobject
14 "Test ownership transfer to a no Smoke QObject instance."
15 (kde:with-kde ("test" "test" "1")
16 (let* ((window (make-instance 'kde:push-button))
17 (action-collection (make-instance 'kde:action-collection
20 (action (kde:make-standard-action kde:standard-action.+open+
22 #'(lambda () (incf counter)))))
25 (5am:is (= 0 counter))
26 (cxx:activate action qt:action.+trigger+)
27 (5am:is (= 1 counter)))))