Wed Jul  1 00:48:36 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * CCL fixes
diff -rN -u old-qt.tests/src/gc.lisp new-qt.tests/src/gc.lisp
--- old-qt.tests/src/gc.lisp	2014-10-30 07:56:30.000000000 +0100
+++ new-qt.tests/src/gc.lisp	2014-10-30 07:56:30.000000000 +0100
@@ -66,12 +66,16 @@
 (5am:test (gc-child :depends-on gc-qobject)
   "Test garbage collection of a qt:object with a parent."
   (gc :full t)
-  (let ((count (hash-table-count smoke::*object-map*)))
-    (eval '(run-gc-child))
-    (eval '(gc :full t))
-    (gc :full t)
-    (gc :full t)
-    (5am:is (>= count (hash-table-count smoke::*object-map*)))))
+  (gc :full t)
+  (qt:with-core-app
+    (let ((count (hash-table-count smoke::*object-map*)))
+      (eval '(run-gc-child))
+      (eval '(gc :full t))
+      (qt:core-application.send-posted-events)
+      (gc :full t)
+      (qt:core-application.send-posted-events)
+      (gc :full t)
+      (5am:is (>= count (hash-table-count smoke::*object-map*))))))
 
 (5am:test (gc-lisp-child :depends-on (and gc-child with-app))
   "Test garbage collection of a qt:object with a parent."
@@ -116,7 +120,7 @@
     (gc :full t)
     (qt:core-application.send-posted-events)
     (gc :full t)
-    (5am:is (>= objects (hash-table-count smoke::*object-map*))))))
+    (5am:is (>= (+ 2 objects) (hash-table-count smoke::*object-map*))))))
 
 (5am:test (ownership-transfer-no-wrapper :depends-on gc-lisp-child)
   "Test ownership tranasfer of a QObject without a wrapper."
diff -rN -u old-qt.tests/src/qstring.lisp new-qt.tests/src/qstring.lisp
--- old-qt.tests/src/qstring.lisp	2014-10-30 07:56:30.000000000 +0100
+++ new-qt.tests/src/qstring.lisp	2014-10-30 07:56:30.000000000 +0100
@@ -5,9 +5,10 @@
 (5am:test (qstring :depends-on bytearray)
   "Tests string <-> QString."
   (let ((object (make-instance 'qt:object)))
-;    (5am:for-all ((string (5am:gen-string))) ;;FIXME
+;    (5am:for-all ((string (5am:gen-string))) ;; FIXME (Qt bug?)
     (5am:for-all ((string (5am:gen-one-element "foo"
                                               "FOO bar"
+                                              ""
                                               (format nil "A~AB" #\Null)
                                               "öäüƧЪ")))
       (setf (cxx:object-name object) string)
diff -rN -u old-qt.tests/src/signal-slot.lisp new-qt.tests/src/signal-slot.lisp
--- old-qt.tests/src/signal-slot.lisp	2014-10-30 07:56:30.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp	2014-10-30 07:56:30.000000000 +0100
@@ -115,7 +115,7 @@
 ;; SBCL runs the finalizer when the object has been garbage collected,
 ;; thus its children could be to and thus the destroyed() signal is not
 ;; received
-#-(or sbcl cmucl)
+#-(or sbcl cmucl ccl)
 (5am:test (destroyed-signal :depends-on gc-qobject)
   "Receive a destroy signal for a QObject."
   (setf *destroyed* nil)