[elephant-cvs] CVS elephant/tests

[rread]

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)