[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-serv28019/test

Modified Files:
	test-serialization.lisp 
Log Message:
added support for unprintable symbols in serialization

Date: Mon Jan 24 02:04:20 2005
Author: scaekenberghe

Index: cl-prevalence/test/test-serialization.lisp
diff -u cl-prevalence/test/test-serialization.lisp:1.3 cl-prevalence/test/test-serialization.lisp:1.4
--- cl-prevalence/test/test-serialization.lisp:1.3	Sat Jan 22 11:24:00 2005
+++ cl-prevalence/test/test-serialization.lisp	Mon Jan 24 02:04:18 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: test-serialization.lisp,v 1.3 2005/01/22 19:24:00 scaekenberghe Exp $
+;;;; $Id: test-serialization.lisp,v 1.4 2005/01/24 10:04:18 scaekenberghe Exp $
 ;;;;
 ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS
 ;;;;
@@ -95,6 +95,14 @@
 (assert
  (eq (serialize-and-deserialize-sexp 'room)
      'room))
+
+(assert
+ (eq (serialize-and-deserialize-xml '|Unprintable|)
+     '|Unprintable|))
+
+(assert
+ (eq (serialize-and-deserialize-sexp '|Unprintable|)
+     '|Unprintable|))
 
 (assert
  (equal (serialize-and-deserialize-xml "Hello")