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:58:06.000000000 +0100
+++ new-qt.tests/src/application.lisp	2014-10-30 07:58:07.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)))))