src/properties.lisp
Wed Apr 8 17:14:11 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Improve property test
--- old-qt.tests/src/properties.lisp 2014-10-30 07:59:06.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:59:06.000000000 +0100
@@ -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")