Sun May 24 16:14:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test with-app
diff -rN -u old-qt.tests/src/application.lisp new-qt.tests/src/application.lisp
--- old-qt.tests/src/application.lisp 2014-10-30 07:03:18.000000000 +0100
+++ new-qt.tests/src/application.lisp 2014-10-30 07:03:18.000000000 +0100
@@ -5,7 +5,7 @@
(5am:test with-app
"Tests qt:with-app and qt:with-core-app"
(5am:for-all ((core-p (5am:gen-one-element nil t)))
-; (5am:is (eql nil (qt:app-p)))
+ (5am:is (eql nil (qt:app-p)))
(if core-p
(qt:with-core-app
(5am:is (eql t (qt:app-p)))
@@ -14,13 +14,14 @@
(qt:with-app
(5am:is (eql t (qt:app-p)))
(5am:is (typep (qt:app) (find-class 'qt:application)))
- (setf (cxx:object-name (qt:app)) "app")))))
-; (5am:is (eql nil (qt:app-p)))))
+ (setf (cxx:object-name (qt:app)) "app")))
+ (5am:is (eql nil (qt:app-p)))))
(5am:test application-nest
"Test qt:with-core-app nesting."
(qt:with-core-app
(5am:is (eql (qt:app) (qt:core-application.instance)))
(qt:with-core-app
- (5am:is (eql (qt:app) (qt:core-application.instance))))))
+ (5am:is (eql (qt:app) (qt:core-application.instance))))
+ (5am:is (eql (qt:app) (qt:core-application.instance)))))