Update of /project/cxml/cvsroot/cxml/test In directory common-lisp.net:/tmp/cvs-serv31930/test

Modified Files: domtest.lisp Log Message: am dom rumgeschraubt und sax-defaults geaendert vielleicht teilweise verkehrt

Date: Sun Dec 4 21:35:17 2005 Author: dlichteblau

Index: cxml/test/domtest.lisp diff -u cxml/test/domtest.lisp:1.7 cxml/test/domtest.lisp:1.8 --- cxml/test/domtest.lisp:1.7 Sun Dec 4 20:25:09 2005 +++ cxml/test/domtest.lisp Sun Dec 4 21:35:17 2005 @@ -689,9 +689,13 @@ (format t "~&~D/~D tests failed; ~D test~:P were skipped" nfailed ntried (- n ntried))))

-(defun run-test (*directory* href) - (let* ((test-directory (merge-pathnames "tests/level1/core/" *directory*)) - (lisp (slurp-test (merge-pathnames href test-directory))) +(defun run-test (*directory* level href) + (let* ((test-directory + (ecase level + (1 (merge-pathnames "tests/level1/core/" *directory*)) + (2 (merge-pathnames "tests/level2/core/" *directory*)))) + (lisp (slurp-test (merge-pathnames href test-directory))) + (*files-directory* (merge-pathnames "files/" test-directory)) (cxml::*validate* nil)) (print lisp) (when lisp