Sun Apr 12 16:45:00 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Update to overload by argument count & trick garbage collection in 5am test.

--- old-qt.tests/src/overload.lisp 2014-10-10 02:18:13.000000000 +0200

+++ new-qt.tests/src/overload.lisp 2014-10-10 02:18:13.000000000 +0200

@@ -6,9 +6,7 @@

((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~%")

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

(incf (counter object)))

--- old-qt.tests/src/signal-slot.lisp 2014-10-10 02:18:13.000000000 +0200

+++ new-qt.tests/src/signal-slot.lisp 2014-10-10 02:18:13.000000000 +0200

@@ -110,15 +110,16 @@

(qt:connect (qt:get-signal object "destroyed()")

#'(lambda () (setf *destroyed* t)))

(tg:gc :full t)

- (5am:is (eql nil *destroyed*)))

+ (5am:is (eq nil *destroyed*)))

(tg:gc :full t))

(5am:test (destroyed-signal :depends-on gc-qobject)

"Receive a destroy signal for a QObject."

(setf *destroyed* nil)

- (test-destroyed-signal)

+ (eval '(test-destroyed-signal)) ;; FIXME eval somehow makes gc in 5am work!?

+ (eval '(tg:gc :full t))

(tg:gc :full t)

- (5am:is (eql t *destroyed*)))

+ (5am:is (eq t *destroyed*)))

(5am:test int-signal

"Receive a int signal."