From 26bc6c356ba988d3761f9cbf2307576289c77d3f Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 2 Dec 2007 20:57:04 +0000 Subject: [PATCH] a serialization test --- test/xmlconf.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/test/xmlconf.lisp b/test/xmlconf.lisp index 51515a2..72998af 100644 --- a/test/xmlconf.lisp +++ b/test/xmlconf.lisp @@ -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"))