Mon Jan 25 22:13:40 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test QGraphicsScene::setItem
diff -rN -u old-qt.tests/cl-smoke.qt.tests.asd new-qt.tests/cl-smoke.qt.tests.asd
--- old-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:48.000000000 +0100
+++ new-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:48.000000000 +0100
@@ -15,6 +15,7 @@
              (:file "qstring" :depends-on ("tests"))
              (:file "qvector" :depends-on ("tests"))
              (:file "qlist" :depends-on ("tests"))
+             (:file "graphics-item" :depends-on ("tests"))
              (:file "overload" :depends-on ("tests"))
              (:file "gc" :depends-on ("tests" "object"))
              (:file "variant" :depends-on ("tests"))
diff -rN -u old-qt.tests/src/graphics-item.lisp new-qt.tests/src/graphics-item.lisp
--- old-qt.tests/src/graphics-item.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/graphics-item.lisp	2014-10-30 07:54:48.000000000 +0100
@@ -0,0 +1,18 @@
+(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))))