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:02:55.000000000 +0100
+++ new-qt.tests/src/click.lisp 2014-10-30 07:02:55.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:02:55.000000000 +0100
+++ new-qt.tests/src/gc.lisp 2014-10-30 07:02:55.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:02:55.000000000 +0100
+++ new-qt.tests/src/signal-slot.lisp 2014-10-30 07:02:55.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