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:03:05.000000000 +0100
+++ new-qt.tests/src/application.lisp 2014-10-30 07:03:05.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)))))))