Mon Jan 25 19:51:13 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test QList translation
diff -rN -u old-qt.tests/cl-smoke.qt.tests.asd new-qt.tests/cl-smoke.qt.tests.asd
--- old-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:54.000000000 +0100
+++ new-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:54.000000000 +0100
@@ -14,6 +14,7 @@
              (:file "qbytearray" :depends-on ("tests"))
              (:file "qstring" :depends-on ("tests"))
              (:file "qvector" :depends-on ("tests"))
+             (:file "qlist" :depends-on ("tests"))
              (:file "overload" :depends-on ("tests"))
              (:file "gc" :depends-on ("tests" "object"))
              (:file "variant" :depends-on ("tests"))
diff -rN -u old-qt.tests/src/qlist.lisp new-qt.tests/src/qlist.lisp
--- old-qt.tests/src/qlist.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/qlist.lisp	2014-10-30 07:54:54.000000000 +0100
@@ -0,0 +1,11 @@
+(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))))))
+