repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
ASDF & modular smoke.
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-06-05 tobias
7
(let ((nested (qt:app-p)))
2009-07-01 tobias
8
(5am:for-all ((core-p (5am:gen-one-element nil t)))
11:02:20 '
9
(unless nested
'
10
(5am:is (eql nil (qt:app-p))))
'
11
(if core-p
'
12
(qt:with-core-app ()
'
13
(5am:is (eql t (qt:app-p)))
2010-01-10 tobias
14
(5am:is (string= "QCoreApplication"
08:57:03 '
15
(cxx:class-name (cxx:meta-object (qt:app)))))
2009-07-01 tobias
16
(setf (cxx:object-name (qt:app)) "core-app")) ;; test for memfault
11:02:20 '
17
(qt:with-app ()
'
18
(5am:is (eql t (qt:app-p)))
2010-01-10 tobias
19
(5am:is (string= "QApplication"
08:57:03 '
20
(cxx:class-name (cxx:meta-object (qt:app)))))
2009-07-01 tobias
21
(setf (cxx:object-name (qt:app)) "app")))
11:02:20 '
22
(unless nested
'
23
(5am:is (eql nil (qt:app-p)))))))
2009-04-02 tobias
24
22:17:02 '
25
(5am:test application-nest
'
26
"Test qt:with-core-app nesting."
2009-07-01 tobias
27
(qt:with-core-app ()
2009-04-02 tobias
28
(5am:is (eql (qt:app) (qt:core-application.instance)))
2009-07-01 tobias
29
(qt:with-core-app ()
2009-05-24 tobias
30
(5am:is (eql (qt:app) (qt:core-application.instance))))
14:14:11 '
31
(5am:is (eql (qt:app) (qt:core-application.instance)))))
2009-04-02 tobias
32
2009-05-31 tobias
33
(5am:test application-widgetlist
22:41:10 '
34
"Test cxx:all-widgets"
2009-07-01 tobias
35
(qt:with-app ()
11:02:20 '
36
(5am:is (= 0 (length (cxx:all-widgets (qt:app)))))
'
37
(let ((w (make-instance 'qt:widget)))
'
38
(5am:is (find w (cxx:all-widgets (qt:app)))))))