Mon Jun  1 00:41:10 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test QList<QWidget*> to sequence conversion.
diff -rN -u old-qt.tests/src/application.lisp new-qt.tests/src/application.lisp
--- old-qt.tests/src/application.lisp	2014-10-30 07:57:23.000000000 +0100
+++ new-qt.tests/src/application.lisp	2014-10-30 07:57:23.000000000 +0100
@@ -25,3 +25,9 @@
       (5am:is (eql (qt:app) (qt:core-application.instance))))
     (5am:is (eql (qt:app) (qt:core-application.instance)))))
   
+(5am:test application-widgetlist
+  "Test cxx:all-widgets"
+  (qt:with-app
+      (5am:is (= 0 (length (cxx:all-widgets (qt:app)))))
+      (let ((w (make-instance 'qt:widget)))
+        (5am:is (find w (cxx:all-widgets (qt:app)))))))