Mon May 11 16:17:41 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Use value instead of from-variant
diff -rN -u old-qt.tests/src/variant.lisp new-qt.tests/src/variant.lisp
--- old-qt.tests/src/variant.lisp	2014-10-30 07:58:23.000000000 +0100
+++ new-qt.tests/src/variant.lisp	2014-10-30 07:58:23.000000000 +0100
@@ -7,16 +7,18 @@
 ;  (5am:for-all ((string (5am:gen-string)))
   (5am:for-all ((string (5am:gen-one-element "foo"
                                             "Foo Bar")))
-    (5am:is (string= string (qt:from-variant (qt:make-variant string))))))
+    (5am:is (eq t (cxx:= string (qt:make-variant string))))
+    (5am:is (string= string (qt:value (qt:make-variant string))))))
 
 (5am:test variant-int
   "Test qt:variant <-> string conversion."
   (5am:for-all ((integer (5am:gen-integer)))
-    (5am:is (= integer (qt:from-variant (qt:make-variant integer))))))
+    (5am:is (eq t (cxx:= integer (qt:make-variant integer))))
+    (5am:is (= integer (qt:value (qt:make-variant integer))))))
 
 (5am:test lisp-variant
   "Test qt:variant <-> lisp object conversion."
   (5am:for-all ((object (5am:gen-one-element #(1 2 3)
                                              (list "foo" "bar"))))
-    (5am:is (eq object (qt:from-variant (qt:make-lisp-variant object))))))
+    (5am:is (eq object (qt:value (qt:make-lisp-variant object))))))