src/variant.lisp
Fri Apr 3 00:17:02 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* initial import
--- old-qt.tests/src/variant.lisp 1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/variant.lisp 2014-10-30 07:59:56.000000000 +0100
@@ -0,0 +1,22 @@
+(in-package :qt.tests)
+
+(5am:in-suite :qt.suite)
+
+(5am:test (variant-string :depends-on qstring)
+ "Test qt:variant <-> string conversion."
+; (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: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: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))))))
+