Update of /project/elephant/cvsroot/elephant/tests In directory clnet:/tmp/cvs-serv21637/tests

Modified Files: testserializer.lisp Log Message: Fix to new test

--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 20:02:16 1.23 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 20:25:15 1.24 @@ -400,14 +400,14 @@ t t t t t t t)

(defclass spud () - ((msgid :type 'list :initform "" :accessor :msgd :initarg :msgid) - (value :type '(or list string) :initform "" :accessor :vl :initarg :value))) + ((msgid :type list :initform "" :accessor :msgd :initarg :msgid) + (value :type (or list string) :initform "" :accessor :vl :initarg :value)))

(deftest test-serialization-unicode-slot (let ((s (make-instance 'spud :msgid '(a b c) :value "Mesaĝo Teksto"))) - (in-out-equal s) + (in-out-deep-equalp s) ) -) + t)

(defun in-out-deep-equalp (var) (assert *store-controller*)