src/qstring.lisp
Mon Apr 6 13:50:14 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Make unit tests work & run tests on darcs record
--- old-qt.tests/src/qstring.lisp 2014-10-30 07:59:27.000000000 +0100
+++ new-qt.tests/src/qstring.lisp 2014-10-30 07:59:27.000000000 +0100
@@ -2,14 +2,14 @@
(5am:in-suite :qt.suite)
-(5am:test qstring
+(5am:test (qstring :depends-on bytearray)
"Tests string <-> QString."
(let ((object (make-instance 'qt:object)))
; (5am:for-all ((string (5am:gen-string))) ;;FIXME
(5am:for-all ((string (5am:gen-one-element "foo"
"FOO bar"
(format nil "A~AB" #\Null)
- "öäü")))
+ "öäüƧЪ")))
(cxx:set-object-name object string)
(5am:is (string= string (cxx:object-name object))))))