Mon Jun 1 00:56:59 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Fix timer test

--- old-qt.tests/src/overload.lisp 2014-10-30 07:03:03.000000000 +0100

+++ new-qt.tests/src/overload.lisp 2014-10-30 07:03:03.000000000 +0100

@@ -6,19 +6,18 @@

((counter :accessor counter :initform 0))

(:metaclass cxx:class))

-(defmethod cxx:timer-event ((object my-object))

- (incf (counter object)))

+(defmethod cxx:timer-event ((object my-object) event)

+ (incf (counter object))

+ (cxx:quit (qt:app)))

-

-;;FIXME

-#|(5am:test timer

+(5am:test timer

(let ((object (make-instance 'my-object)))

- (qt:init-app)

- (5am:is (= 0 (counter object)))

- (cxx:starttimer object 50)

- (sleep 3)

- (5am:is (= 1 (counter object)))))

-|#

+ (qt:with-core-app

+ (5am:is (= 0 (counter object)))

+ (cxx:start-timer object 0)

+ (with-timeout (5)

+ (qt:exec))

+ (5am:is (= 1 (counter object))))))

(defclass my-list-model (qt:abstract-list-model)

((counter :accessor counter :initform 0))