Mon May 11 16:17:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Use value instead of from-variant
hunk ./src/variant.lisp 10
- (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))))))
hunk ./src/variant.lisp 16
- (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))))))
hunk ./src/variant.lisp 23
- (5am:is (eq object (qt:from-variant (qt:make-lisp-variant object))))))
+ (5am:is (eq object (qt:value (qt:make-lisp-variant object))))))