src/qstring.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/qstring.lisp 2014-10-30 07:58:13.000000000 +0100
+++ new-qt.tests/src/qstring.lisp 2014-10-30 07:58:13.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)