Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv28421/test Modified Files: xmlconf.lisp Log Message: So, und jetzt wollen wir auch noch die richtige Klasse von Fehler sehen. "Von 0 auf 1005 in einem check-in." -0/1786 tests failed; 376 tests were skipped +1005/1786 tests failed; 376 tests were skipped Date: Sun Nov 27 01:51:36 2005 Author: dlichteblau Index: cxml/test/xmlconf.lisp diff -u cxml/test/xmlconf.lisp:1.4 cxml/test/xmlconf.lisp:1.5 --- cxml/test/xmlconf.lisp:1.4 Sat Nov 26 23:58:55 2005 +++ cxml/test/xmlconf.lisp Sun Nov 27 01:51:35 2005 @@ -69,6 +69,7 @@ (with-open-file (*standard-output* (merge-pathnames "XMLCONF" base) :direction :output + :external-format :iso-8859-1 :if-exists :supersede) (run-all-tests directory)))) @@ -173,11 +174,9 @@ (progn (format t " [not-wf?]") (cxml:parse-file pathname (dom:make-dom-builder) :validate t) - nil) - (:no-error (n1l) - (error "well-formedness violation not detected") - n1l) - (serious-condition () + (error "well-formedness violation not detected") + nil) + (cxml:well-formedness-violation () (format t " not-wf") t)))