repos
/
kde.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Test ownership transfer of qt:connect to a no Smoke QObject instance.
Annotate for file src/tests.lisp
2010-04-03 tobias
1
(in-package :kde.tests)
2009-04-02 tobias
2
22:18:27 '
3
(5am:def-suite :kde.suite)
'
4
'
5
(5am:in-suite :kde.suite)
'
6
'
7
(defun run ()
'
8
(let ((results (5am:run :kde.suite)))
2009-07-27 tobias
9
(5am:explain! results)
19:28:28 '
10
(unless (5am:results-status results)
'
11
(error "Testsuite :kde.suite failed."))))
'
12
'
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
'
18
:arg0 window))
'
19
(counter 0)
'
20
(action (kde:make-standard-action kde:standard-action.+open+
'
21
action-collection
'
22
#'(lambda () (incf counter)))))
'
23
(tg:gc :full t)
'
24
(tg:gc :full t)
'
25
(5am:is (= 0 counter))
'
26
(cxx:activate action qt:action.+trigger+)
'
27
(5am:is (= 1 counter)))))
'
28