From b9630fddfce18b79f1967ac2bb92fd7a1a41253a Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 1 Jul 2007 17:26:12 +0000
Subject: [PATCH] hacks for stp tests

---
 test/xmlconf.lisp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/test/xmlconf.lisp b/test/xmlconf.lisp
index 53bdc90..51515a2 100644
--- a/test/xmlconf.lisp
+++ b/test/xmlconf.lisp
@@ -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)