src/signal-slot.lisp
Wed Jun 10 14:09:14 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test gc cycle and non cxx:object parent
--- old-qt.tests/src/signal-slot.lisp 2014-10-30 07:56:59.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp 2014-10-30 07:57:00.000000000 +0100
@@ -113,6 +113,10 @@
(5am:is (eq nil *destroyed*)))
(tg:gc :full t))
+;; 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)
(5am:test (destroyed-signal :depends-on gc-qobject)
"Receive a destroy signal for a QObject."
(setf *destroyed* nil)