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:57:58.000000000 +0100
+++ new-qt.tests/src/properties.lisp	2014-10-30 07:57:58.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"))))