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/signal-slot.lisp 2014-10-10 11:46:21.000000000 +0200

+++ new-qt.tests/src/signal-slot.lisp 2014-10-10 11:46:21.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."