Update of /project/cxml/cvsroot/cxml/test In directory clnet:/tmp/cvs-serv27018

Modified Files: xmlconf.lisp Log Message: hacks for stp tests

--- /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/06/16 10:03:11 1.15 +++ /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/07/01 17:26:12 1.16 @@ -53,7 +53,7 @@ (when (plusp (length output)) (merge-pathnames output sub-directory)))))

-(defun serialize-document (document) +(defmethod serialize-document ((document t)) (dom:map-document (cxml:make-octet-vector-sink :canonical 2) document :include-doctype :canonical-notations @@ -195,6 +195,10 @@ :validate nil) (error "well-formedness violation not detected") nil) + #+fixme-stp-test + (error () + (format t " unexpected-error") + t) (cxml:well-formedness-violation () (format t " not-wf") t)) @@ -207,6 +211,10 @@ :validate t) (error "well-formedness violation not detected") nil) + #+fixme-stp-test + (error () + (format t " unexpected-error") + t) (cxml:well-formedness-violation () (format t " not-wf") t)