[cl-prevalence-cvs] CVS update: cl-prevalence/test/test-serialization.lisp

[Sven Van Caekenberghe]

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>!")