Thu Jun 11 17:04:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test adding a child to a no smoke object and fixes for :qt :qt-impl split.

--- old-qt.tests/src/signal-slot.lisp 2014-10-30 07:56:54.000000000 +0100

+++ new-qt.tests/src/signal-slot.lisp 2014-10-30 07:56:54.000000000 +0100

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

(5am:test simple-signal-slot

"Test custom signal to custom slot connection."

(let ((counter 0))

- (let ((my-signal (make-instance 'qt:qsignal))

+ (let ((my-signal (qt:make-signal))

(my-slot (qt::make-slot #'(lambda () (incf counter))

nil)))

@@ -93,7 +93,7 @@

"Pass a lisp object over a signal-slot connection."

(let ((num 1d0)

(count 0))

- (let ((my-signal (make-instance 'qt:qsignal))

+ (let ((my-signal (qt:make-signal))

(my-slot (qt::make-slot #'(lambda (a b)

(5am:is (eq a num))

(5am:is (eql t b))