src/gc.lisp
Wed Jul 1 00:48:36 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* CCL fixes
--- old-qt.tests/src/gc.lisp 2014-10-30 07:56:31.000000000 +0100
+++ new-qt.tests/src/gc.lisp 2014-10-30 07:56:31.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."