[elephant-cvs] CVS elephant/tests

[ieslick]

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*)