src/gc.lisp
Thu Jun 11 20:52:38 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* The Qt modules are now all in :qt
--- old-qt.tests/src/gc.lisp 2014-10-30 07:56:45.000000000 +0100
+++ new-qt.tests/src/gc.lisp 2014-10-30 07:56:45.000000000 +0100
@@ -161,3 +161,18 @@
qt:item-selection-model.+toggle+)
(5am:is (= 2 counter)))))
+#|
+;; FIXME
+(5am:test (gc-variant-cycle :depends-on gc-lisp-child lisp-variant)
+ (let ((finalized-p))
+ (let* ((list (list nil))
+ (variant (qt:make-lisp-variant list)))
+ (setf (first list)
+ variant)
+ (tg:finalize list #'(lambda () (setf finalized-p t)))
+ (5am:is (eq nil finalized-p)))
+ (gc :full t)
+ (gc :full t)
+ (5am:is (eq t finalized-p))))
+
+|#