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

am dom rumgeschraubt und sax-defaults geaendert

Browse Source 
vielleicht teilweise verkehrt
This commit is contained in:
dlichteblau
2005-12-04 20:35:13 +00:00
parent f485e89c10
commit 9c92b2ba37
5 changed files with 124 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/domtest.lisp
View File

@ -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