a serialization test

This commit is contained in:
dlichteblau
2007-12-02 20:57:04 +00:00
parent 4ffbc14670
commit 26bc6c356b

View File

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