Test setf for "set[A-Z].*" methods.
src/application.lisp
Mon May 11 17:42:25 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Test setf for "set[A-Z].*" methods.
--- old-qt.tests/src/application.lisp 2014-10-30 07:58:12.000000000 +0100
+++ new-qt.tests/src/application.lisp 2014-10-30 07:58:12.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