(in-package :qt.tests)

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

(5am:test variant-list
  "QList<Variant>"
  (let ((variants (vector (qt:make-variant "foo"))))
    (5am:is (every #'cxx:=
                   variants
                   (cxx:to-list (qt:make-variant variants))))))