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.
hunk ./src/gc.lisp 76
-;(5am:test (gc-lisp-child :depends-on (and gc-child with-app))
-(5am:test gc-lisp-child
+(5am:test (gc-lisp-child :depends-on (and gc-child with-app))
hunk ./src/gc.lisp 95
- (qt:with-core-app
- (dotimes (i 10)
- (let ((timer (make-instance 'qt:timer)))
- (qt:connect (qt:get-signal timer "timeout()")
- #'(lambda ()
- (format *debug-io* "Timeout ~A" timer)))))
- (gc :full t)
- (qt:core-application.send-posted-events)
- (gc :full t)
- (qt:core-application.send-posted-events)))
+ (dotimes (i 10)
+ (let ((timer (make-instance 'qt:timer)))
+ (qt:connect (qt:get-signal timer "timeout()")
+ #'(lambda ()
+ (format *debug-io* "Timeout ~A" timer)))))
+ (gc :full t)
+ (qt:core-application.send-posted-events)
+ (gc :full t)
+ (qt:core-application.send-posted-events))
hunk ./src/gc.lisp 121
-(5am:test ownership-transfer-no-wrapper
+(5am:test (ownership-transfer-no-wrapper :depends-on gc-lisp-child)
hunk ./src/gc.lisp 136
+
+(5am:test (gc-non-smoke-object :depends-on gc-lisp-child)
+ "Test adding a child to a non smoke object."
+ (qt:with-app
+ (let ((model (make-instance 'qt:string-list-model
+ :args (list #("a" "b" "c"))))
+ (view (make-instance 'qt:list-view))
+ (counter 0))
+ (setf (cxx:model view) model)
+ (qt:connect (qt:get-signal (cxx:selection-model view)
+ "selectionChanged(QItemSelection, QItemSelection)")
+ #'(lambda (selected deselected)
+ (declare (ignore selected deselected))
+ (incf counter)))
+ (gc :full t)
+ (qt:core-application.send-posted-events)
+ (gc :full t)
+ (qt:core-application.send-posted-events)
+ (5am:is (= 0 counter))
+ (cxx:select (cxx:selection-model view)
+ (cxx:index model 0)
+ qt:item-selection-model.+toggle+)
+ (5am:is (= 1 counter))
+ (cxx:select (cxx:selection-model view)
+ (cxx:index model 1)
+ qt:item-selection-model.+toggle+)
+ (5am:is (= 2 counter)))))
+ [_$_]
hunk ./src/properties.lisp 8
- (5am:is (= 1 (length (qt:properties (make-instance 'qt:object)))))
- (5am:is (= 1 (length (qt:class-properties (find-class 'qt:qslot))))))
+ (5am:is (= 1 (length (qt:properties (make-instance 'qt:object))))))
hunk ./src/signal-slot.lisp 9
- (let ((my-signal (make-instance 'qt:qsignal))
+ (let ((my-signal (qt:make-signal))
hunk ./src/signal-slot.lisp 96
- (let ((my-signal (make-instance 'qt:qsignal))
+ (let ((my-signal (qt:make-signal))