(in-package :qt.tests)

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

(5am:test test-children
  "Test QList<Object*> to sequence conversion."
  (let ((object (make-instance 'qt:object)))
    (5am:is (= 0 (length (cxx:children object))))
    (let ((children (mapcar #'(lambda (parent)
                                (make-instance 'qt:object :args (list parent)))
                            (list object object object))))
      (5am:is (= (length children)
                 (length (cxx:children object))))
      (dolist (c children)
        (5am:is (find c (cxx:children object)))))))

(defclass my-multi-object (qt:object qt:graphics-item)
  ()
  (:metaclass cxx:class))

(5am:test multi-object
  "Tests a custom object that has two C++ superclasses."
  (let ((object (make-instance 'my-multi-object)))
    (5am:is (string= "" (cxx:object-name object)))
    (5am:is (= qt:graphics-item.+user-type+
               (cxx:type object)))))