[cxml-cvs] CVS cxml/test

[dlichteblau]

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