Thu Jul 23 00:22:47 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Qt property names are symbols in the keyword package.
diff -rN -u old-qt.tests/src/gc.lisp new-qt.tests/src/gc.lisp
--- old-qt.tests/src/gc.lisp 2014-10-30 07:02:49.000000000 +0100
+++ new-qt.tests/src/gc.lisp 2014-10-30 07:02:49.000000000 +0100
@@ -3,7 +3,7 @@
(5am:in-suite :qt.suite)
;;; The GC stuff depends on (gc :full t) to collect the consed objects.
-;;; Sometimes calling GC twice helps in sbcl.
+;;; Sometimes calling GC twice helps in SBCL.
(defun test-gc (class)
"Returns true when some instances of class get garbage collected
@@ -11,7 +11,7 @@
It is not required that every instance is gc'ed, since this rarely happens
and is not a bug."
(let ((objects nil))
- (dotimes (x 9)
+ (dotimes (x 10)
(let ((object (make-instance class)))
(push (make-weak-pointer object)
objects)))
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:02:49.000000000 +0100
+++ new-qt.tests/src/properties.lisp 2014-10-30 07:02:49.000000000 +0100
@@ -11,10 +11,10 @@
"Tests get and set property string"
(let ((o (make-instance 'qt:object)))
(5am:is (eql t (qt:property-p o "objectName")))
- (5am:is (eql t (qt:property-p o 'object-name)))
+ (5am:is (eql t (qt:property-p o :object-name)))
- (setf (qt:property o 'object-name) "fooBar")
- (5am:is (string= (qt:property o 'object-name) "fooBar"))
+ (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"))