Wed May 27 19:28:53 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test dynamic properties
diff -rN -u old-qt.tests/src/properties.lisp new-qt.tests/src/properties.lisp
--- old-qt.tests/src/properties.lisp 2014-10-30 07:03:15.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:03:15.000000000 +0100
@@ -21,6 +21,8 @@
(5am:is (eql nil (qt:property-p o 'foo)))
(setf (qt:property o 'foo) "bar")
+ (5am:is (= 2 (length (qt:properties o))))
+ (5am:is (member 'foo (qt:properties o)))
(5am:is (eql t (qt:property-p o 'foo)))
(5am:is (string= (qt:property o 'foo) "bar"))))