[cxml-cvs] CVS update: cxml/test/xmlconf.lisp

[David Lichteblau]

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