[cl-prevalence-cvs] CVS cl-prevalence/test

[scaekenberghe]

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test
In directory clnet:/tmp/cvs-serv14547/test

Modified Files:
	test-serialization.lisp 
Log Message:
fixed a bug serializing empty hashtables in s-expr format (thx to Sacha De Vos for reporting this)


--- /project/cl-prevalence/cvsroot/cl-prevalence/test/test-serialization.lisp	2006/01/31 12:41:48	1.5
+++ /project/cl-prevalence/cvsroot/cl-prevalence/test/test-serialization.lisp	2007/03/16 15:37:18	1.6
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: test-serialization.lisp,v 1.5 2006/01/31 12:41:48 scaekenberghe Exp $
+;;;; $Id: test-serialization.lisp,v 1.6 2007/03/16 15:37:18 scaekenberghe Exp $
 ;;;;
 ;;;; Testing XML and S-Expression based Serialization for Common Lisp and CLOS
 ;;;;
@@ -277,4 +277,16 @@
   (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *hashtable*) 
   (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2))
 
+(defparameter *empty-hashtable* (make-hash-table))
+
+(let (h2)
+  (setf h2 (serialize-and-deserialize-xml *empty-hashtable*))
+  (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *empty-hashtable*) 
+  (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2))
+
+(let (h2)
+  (setf h2 (serialize-and-deserialize-sexp *empty-hashtable*))
+  (maphash #'(lambda (k v) (assert (equal v (gethash k h2)))) *empty-hashtable*) 
+  (maphash #'(lambda (k v) (assert (equal v (gethash k *hashtable*)))) h2))
+
 ;;; eof