[cxml-cvs] CVS update: cxml/test/domtest.lisp

[David Lichteblau]

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