Sun Apr 12 21:51:20 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test operator functions

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

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

@@ -162,13 +162,12 @@

"Receive a C++ class by value signal."

(qt:with-app

(let ((model (make-instance 'qt:string-list-model))

- (count 0))

+ (count 0))

(qt:connect (qt:get-signal model

"rowsInserted(QModelIndex, int, int)")

#'(lambda (parent start end)

- (declare (ignore previous))

- (5am:is (eq (cxx:internal-id (cxx:parent (cxx:index model start)))

- (cxx:internal-id parent)))

+ (5am:is (cxx:= (cxx:parent (cxx:index model start)))

+ parent)

(incf count)))

(5am:is (= 0 count))

(cxx:insert-rows model 0 1)