(in-package :qt.tests)

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

(5am:test (qstring :depends-on bytearray)
  "Tests string <-> QString."
  (let ((object (make-instance 'qt:object)))
    ;;    (5am:for-all ((string (5am:gen-string))) ;; FIXME (Qt bug?)
    (5am:for-all ((string (5am:gen-one-element "foo"
                                               "FOO bar"
                                               ""
                                               (format nil "A~AB" #\Null)
                                               "öäüƧЪ")))
      (setf (cxx: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))))))