(in-package :qt.tests)

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

(5am:test set-graphics-item
  "Ownership transfer for QGraphicsScene::setItem."
  (qt:with-app ()
    (let ((scene (make-instance 'qt:graphics-scene)))
      (let ((item (make-instance 'qt:graphics-item)))
        (cxx:set-tool-tip item "Foo")
        (cxx:add-item scene item))
      (tg:gc :full t)
      (tg:gc :full t)
      (5am:is (= 1 (length (cxx:items scene))))
      (5am:is (string= "Foo"
                       (cxx:tool-tip (elt (cxx:items scene) 0))))
      ;; FIXME delete QGraphicsScene before the QApplication is deleted
      (smoke::delete-object scene))))