1 (in-package :qt.tests)

2

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

4

5 (5am:test variant-list

6 "QList<Variant>"

7 (let ((variants (vector (qt:make-variant "foo"))))

8 (5am:is (every #'cxx:=

9 variants

10 (cxx:to-list (qt:make-variant variants))))))

11