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