Wed Apr 8 17:14:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Improve property test
diff -rN -u old-qt.tests/src/properties.lisp new-qt.tests/src/properties.lisp
--- old-qt.tests/src/properties.lisp 2014-10-20 02:41:39.000000000 +0200
+++ new-qt.tests/src/properties.lisp 2014-10-20 02:41:39.000000000 +0200
@@ -17,6 +17,7 @@
(setf (qt:property o 'object-name) "fooBar")
(5am:is (string= (qt:property o 'object-name) "fooBar"))
(5am:is (string= (qt:property o "objectName") "fooBar"))
+ (5am:is (string= (cxx:object-name o) "fooBar"))
(5am:is (eql nil (qt:property-p o 'foo)))
(setf (qt:property o 'foo) "bar")