Thu Jun 11 20:52:38 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * The Qt modules are now all in :qt
diff -rN -u old-qt.tests/src/click.lisp new-qt.tests/src/click.lisp
--- old-qt.tests/src/click.lisp	2014-10-30 07:56:42.000000000 +0100
+++ new-qt.tests/src/click.lisp	2014-10-30 07:56:42.000000000 +0100
@@ -20,9 +20,9 @@
       (5am:is (string= "Hello World" (cxx:text widget)))
 
       (5am:is (= 0 click-count))
-      (qt.test:test.mouse-click widget qt:+left-button+)
+      (qt:test.mouse-click widget qt:+left-button+)
       (5am:is (= 1 click-count))
-      (qt.test:test.mouse-click widget qt:+right-button+)
+      (qt:test.mouse-click widget qt:+right-button+)
       (5am:is (= 1 click-count)))))
 
 (5am:test (click-test-bool :depends-on click-test)
@@ -35,9 +35,9 @@
                       (5am:is (eql nil checked))
                       (incf click-count)))
       (5am:is (= 0 click-count))
-      (qt.test:test.mouse-click widget qt:+left-button+)
+      (qt:test.mouse-click widget qt:+left-button+)
       (5am:is (= 1 click-count))
-      (qt.test:test.mouse-click widget qt:+left-button+)
+      (qt:test.mouse-click widget qt:+left-button+)
       (5am:is (= 2 click-count)))))
 
 (5am:test (click-test-bool-this :depends-on click-test)
@@ -52,7 +52,7 @@
                                    (5am:is (eq widget object))
                                    (incf click-count))))
       (5am:is (= 0 click-count))
-      (qt.test:test.mouse-click widget qt:+left-button+)
+      (qt:test.mouse-click widget qt:+left-button+)
       (5am:is (= 1 click-count))
-      (qt.test:test.mouse-click widget qt:+left-button+)
+      (qt:test.mouse-click widget qt:+left-button+)
       (5am:is (= 2 click-count)))))
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:42.000000000 +0100
+++ new-qt.tests/src/gc.lisp	2014-10-30 07:56:42.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))))
+
+|#
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:42.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp	2014-10-30 07:56:42.000000000 +0100
@@ -1,5 +1,4 @@
 (in-package :qt.tests)
-(declaim (optimize (debug 3)))
 
 (5am:in-suite :qt.suite)
 
@@ -159,7 +158,7 @@
                         (5am:is (eq button object))
                         (incf click-count)))
         (5am:is (= 0 click-count))
-        (qt.test:test.mouse-click button qt:+left-button+)
+        (qt:test.mouse-click button qt:+left-button+)
         (5am:is (= 1 click-count)))))
 
 (5am:test receive-by-value