Update of /project/cl-prevalence/cvsroot/cl-prevalence/test In directory common-lisp.net:/tmp/cvs-serv5673/test

Modified Files: test-serialization.lisp Log Message: added serialization support for characters (suggested by ian eslick)

Date: Sat Jan 22 11:24:00 2005 Author: scaekenberghe

Index: cl-prevalence/test/test-serialization.lisp diff -u cl-prevalence/test/test-serialization.lisp:1.2 cl-prevalence/test/test-serialization.lisp:1.3 --- cl-prevalence/test/test-serialization.lisp:1.2 Mon Oct 4 07:52:52 2004 +++ cl-prevalence/test/test-serialization.lisp Sat Jan 22 11:24:00 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: Lisp -*- ;;;; -;;;; $Id: test-serialization.lisp,v 1.2 2004/10/04 14:52:52 scaekenberghe Exp $ +;;;; $Id: test-serialization.lisp,v 1.3 2005/01/22 19:24:00 scaekenberghe Exp $ ;;;; ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS ;;;; @@ -111,6 +111,22 @@ (assert (equal (serialize-and-deserialize-sexp "") "")) + +(assert + (equal (serialize-and-deserialize-xml #\A) + #\A)) + +(assert + (equal (serialize-and-deserialize-sexp #\A) + #\A)) + +(assert + (equal (serialize-and-deserialize-xml #<) + #<)) + +(assert + (equal (serialize-and-deserialize-sexp #<) + #<))

(assert (equal (serialize-and-deserialize-xml "Hello <foo> & </bar>!")