Update of /project/cxml/cvsroot/cxml/test In directory clnet:/tmp/cvs-serv22835
Modified Files: xmlconf.lisp Log Message: a serialization test
--- /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/07/01 17:26:12 1.16 +++ /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/12/02 20:57:04 1.17 @@ -138,6 +138,12 @@ pathname (rune-dom:make-dom-builder) args))) + ;; If we got here, parsing worked. Let's try to serialize the same + ;; document. (We do the same thing in canonical mode below to check the + ;; content model of the output, but that doesn't even catch obvious + ;; errors in DTD serialization, so even a simple here is an + ;; improvement.) + (apply *parser-fn* pathname (cxml:make-rod-sink) args) (cond ((null output) (format t " input"))