Fri Jun 5 09:49:09 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix test failures when a qt:application instance is already running.
diff -rN -u old-qt.tests/src/application.lisp new-qt.tests/src/application.lisp
--- old-qt.tests/src/application.lisp 2014-10-27 20:05:06.000000000 +0100
+++ new-qt.tests/src/application.lisp 2014-10-27 20:05:06.000000000 +0100
@@ -4,8 +4,10 @@
(5am:test with-app
"Tests qt:with-app and qt:with-core-app"
+ (let ((nested (qt:app-p)))
(5am:for-all ((core-p (5am:gen-one-element nil t)))
- (5am:is (eql nil (qt:app-p)))
+ (unless nested
+ (5am:is (eql nil (qt:app-p))))
(if core-p
(qt:with-core-app
(5am:is (eql t (qt:app-p)))
@@ -15,7 +17,8 @@
(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)))))
+ (unless nested
+ (5am:is (eql nil (qt:app-p)))))))
(5am:test application-nest
"Test qt:with-core-app nesting."