OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hacks for stp tests

Browse Source
This commit is contained in:
dlichteblau
2007-07-01 17:26:12 +00:00
parent 4e57491ebe
commit b9630fddfc
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/xmlconf.lisp
View File

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