src/qstring.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/qstring.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/qstring.lisp 2014-10-30 07:59:50.000000000 +0100
@@ -0,0 +1,24 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+(5am:test qstring
+ "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))))))
+
+(5am:test (string-list :depends-on qstring)
+ "Test vector <-> QStringList."
+ (5am:for-all ((vector (5am:gen-one-element #()
+ #("foo")
+ #("foo" "bar")
+ #("ä" "ö" "ü"))))
+ (let ((model (make-instance 'qt:string-list-model
+ :args (list vector))))
+ (5am:is (equalp vector (cxx:string-list model))))))