repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Make unit tests work & run tests on darcs record
Annotate for file src/application.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(5am:test with-app
'
6
"Tests qt:with-app and qt:with-core-app"
2009-07-01 tobias
7
(5am:for-all ((core-p (5am:gen-one-element nil t)))
2009-04-06 tobias
8
; (5am:is (eql nil (qt:app-p)))
2009-07-01 tobias
9
(if core-p
11:02:20 '
10
(qt:with-core-app
'
11
(5am:is (eql t (qt:app-p)))
'
12
(5am:is (typep (qt:app) (find-class 'qt:core-application)))
2009-05-11 tobias
13
(cxx:set-object-name (qt:app) "core-app")) ;; test for memfault
2009-07-01 tobias
14
(qt:with-app
11:02:20 '
15
(5am:is (eql t (qt:app-p)))
'
16
(5am:is (typep (qt:app) (find-class 'qt:application)))
2009-04-06 tobias
17
(cxx:set-object-name (qt:app) "app")))))
11:50:14 '
18
; (5am:is (eql nil (qt:app-p)))))
2009-04-02 tobias
19
22:17:02 '
20
(5am:test application-nest
'
21
"Test qt:with-core-app nesting."
2009-07-01 tobias
22
(qt:with-core-app
2009-04-02 tobias
23
(5am:is (eql (qt:app) (qt:core-application.instance)))
2009-07-01 tobias
24
(qt:with-core-app
2009-05-24 tobias
25
(5am:is (eql (qt:app) (qt:core-application.instance))))))
2009-04-02 tobias
26