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-15 07:41:58.000000000 +0200
+++ new-qt.tests/src/gc.lisp 2014-10-15 07:41:59.000000000 +0200
@@ -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-15 07:41:58.000000000 +0200
+++ new-qt.tests/src/qstring.lisp 2014-10-15 07:41:59.000000000 +0200
@@ -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-15 07:41:58.000000000 +0200
+++ new-qt.tests/src/signal-slot.lisp 2014-10-15 07:41:59.000000000 +0200
@@ -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)