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

Modified Files: testserializer.lisp Log Message: New test case based on unicode serialization bug

--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/04/21 17:23:02 1.21 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/06/04 19:43:17 1.22 @@ -399,6 +399,16 @@ (deep-equalp b b))) 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))) + +(deftest test-serialization-unicode-slot + (let ((s (make-instance 'CL-USER::Message :msgid '(a b c) :value "Mesaĝo Teksto"))) + (in-out-equal s) + ) +) + (defun in-out-deep-equalp (var) (assert *store-controller*) (with-buffer-streams (out-buf)