Mon May 11 17:42:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test setf for "set[A-Z].*" methods.
diff -rN -u old-qt.tests/src/application.lisp new-qt.tests/src/application.lisp
--- old-qt.tests/src/application.lisp 2014-10-30 07:03:20.000000000 +0100
+++ new-qt.tests/src/application.lisp 2014-10-30 07:03:20.000000000 +0100
@@ -10,11 +10,11 @@
(qt:with-core-app
(5am:is (eql t (qt:app-p)))
(5am:is (typep (qt:app) (find-class 'qt:core-application)))
- (cxx:set-object-name (qt:app) "core-app")) ;; test for memfault
+ (setf (cxx:object-name (qt:app)) "core-app")) ;; test for memfault
(qt:with-app
(5am:is (eql t (qt:app-p)))
(5am:is (typep (qt:app) (find-class 'qt:application)))
- (cxx:set-object-name (qt:app) "app")))))
+ (setf (cxx:object-name (qt:app)) "app")))))
; (5am:is (eql nil (qt:app-p)))))
(5am:test application-nest
diff -rN -u old-qt.tests/src/qstring.lisp new-qt.tests/src/qstring.lisp
--- old-qt.tests/src/qstring.lisp 2014-10-30 07:03:20.000000000 +0100
+++ new-qt.tests/src/qstring.lisp 2014-10-30 07:03:20.000000000 +0100
@@ -10,7 +10,7 @@
"FOO bar"
(format nil "A~AB" #\Null)
"öäüƧЪ")))
- (cxx:set-object-name object string)
+ (setf (cxx:object-name object) string)
(5am:is (string= string (cxx:object-name object))))))
(5am:test (string-list :depends-on qstring)