src/overload.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/overload.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/overload.lisp 2014-10-30 07:59:43.000000000 +0100
@@ -0,0 +1,23 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+(defclass my-object (qt:object)
+ ((counter :accessor counter :initform 0))
+ (:metaclass smoke::smoke-wrapper-class))
+
+(defmethod cxx:timer-event ((object my-object) &rest args)
+ (declare (ignore args))
+ (format t "TIME~%")
+ (incf (counter object)))
+
+
+;;FIXME
+#|(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)))))
+|#