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-30 07:57:07.000000000 +0100
+++ new-qt.tests/src/application.lisp	2014-10-30 07:57:07.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."