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:03:23.000000000 +0100
+++ new-qt.tests/src/variant.lisp 2014-10-30 07:03: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))))))