run not-wf tests

2005-11-26 22:55:22 +00:00
parent d4f9de3418
commit 809d570882
4 changed files with 3017 additions and 1 deletions
--- a/test/domtest.lisp
+++ b/test/domtest.lisp
@ -618,6 +618,14 @@
      "hc_nodereplacechildnewchildexists.xml"
      "characterdatadeletedatanomodificationallowederr.xml"))

+(defun dribble-tests (directory)
+  (let ((base (slot-value (asdf:find-system :cxml) 'asdf::relative-pathname)))
+    (with-open-file (*standard-output*
+		     (merge-pathnames "DOMTEST" base)
+		     :direction :output
+		     :if-exists :supersede)
+      (run-all-tests directory))))
+
 (defun run-all-tests (*directory* &optional verbose)
  (let* ((cxml::*redefinition-warning* nil)
         (test-directory (merge-pathnames "tests/level1/core/" *directory*))