[cxml-cvs] CVS cxml/test

[dlichteblau]

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)