darcs - qt.tests

1 (in-package :qt.tests)

3 (5am:in-suite :qt.suite)

5 (5am:test (qstring :depends-on bytearray)

6 "Tests string <-> QString."

7 (let ((object (make-instance 'qt:object)))

8 ;; (5am:for-all ((string (5am:gen-string))) ;; FIXME (Qt bug?)

9 (5am:for-all ((string (5am:gen-one-element "foo"

10 "FOO bar"

11 ""

12 (format nil "A~AB" #\Null)

13 "öäüÆ§Ðª")))

14 (setf (cxx:object-name object) string)

15 (5am:is (string= string (cxx:object-name object))))))

17 (5am:test (string-list :depends-on qstring)

18 "Test vector <-> QStringList."

19 (5am:for-all ((vector (5am:gen-one-element #()

20 #("foo")

21 #("foo" "bar")

22 #("ä" "ö" "ü"))))

23 (let ((model (make-instance 'qt:string-list-model

24 :args (list vector))))

25 (5am:is (equalp vector (cxx:string-list model))))))