src/click.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/click.lisp 2014-10-23 19:17:40.000000000 +0200
+++ new-qt.tests/src/click.lisp 2014-10-23 19:17:40.000000000 +0200
@@ -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)))))