Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv28499/test

Modified Files: xmlconf.lisp Log Message: schon wieder weniger! wfness natuerlich erstmal ohne validierung pruefen, aber wenn wir validieren ist ein validierungsfehler auch gut genug.

Date: Sun Nov 27 01:58:07 2005 Author: dlichteblau

Index: cxml/test/xmlconf.lisp diff -u cxml/test/xmlconf.lisp:1.5 cxml/test/xmlconf.lisp:1.6 --- cxml/test/xmlconf.lisp:1.5 Sun Nov 27 01:51:35 2005 +++ cxml/test/xmlconf.lisp Sun Nov 27 01:58:06 2005 @@ -172,12 +172,25 @@ (assert (null args)) (handler-case (progn - (format t " [not-wf?]") + (format t " [not validating:]") + (cxml:parse-file pathname (dom:make-dom-builder) :validate nil) + (error "well-formedness violation not detected") + nil) + (cxml:well-formedness-violation () + (format t " not-wf") + t)) + (handler-case + (progn + (format t " [validating:]") (cxml:parse-file pathname (dom:make-dom-builder) :validate t) (error "well-formedness violation not detected") nil) (cxml:well-formedness-violation () (format t " not-wf") + t) + (cxml:validity-error () + ;; das erlauben wir mal auch, denn valide => wf + (format t " invalid") t)))

#+(or)