1 (in-package :qt.tests)

2

3 (5am:in-suite :qt.suite)

4

5 (5am:test set-graphics-item

6 "Ownership transfer for QGraphicsScene::setItem."

7 (qt:with-app ()

8 (let ((scene (make-instance 'qt:graphics-scene)))

9 (let ((item (make-instance 'qt:graphics-item)))

10 (cxx:set-tool-tip item "Foo")

11 (cxx:add-item scene item))

12 (tg:gc :full t)

13 (tg:gc :full t)

14 (5am:is (= 1 (length (cxx:items scene))))

15 (5am:is (string= "Foo"

16 (cxx:tool-tip (elt (cxx:items scene) 0))))

17 ;; FIXME delete QGraphicsScene before the QApplication is deleted

18 (smoke::delete-object scene))))