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

[David Lichteblau]

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)