Mon Jun  1 00:56:59 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix timer test
diff -rN -u old-qt.tests/src/overload.lisp new-qt.tests/src/overload.lisp
--- old-qt.tests/src/overload.lisp	2014-10-22 20:40:41.000000000 +0200
+++ new-qt.tests/src/overload.lisp	2014-10-22 20:40:41.000000000 +0200
@@ -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))