Commit 8024ffd0 authored by david's avatar david

Revision: cxml--devel--1.0--patch-29

Creator: David Lichteblau <>
Date: Tue Feb  3 23:44:27 CET 2004
Standard-date: 2004-02-03 22:44:27 GMT
Modified-files: domtest.lisp
Summary: einzelnen Test ausfuehren koennen

einzelnen Test ausfuehren koennen
parent 67c3663e
......@@ -462,6 +462,12 @@
(format t "~&~D/~D tests failed; ~D test~:P were skipped"
nfailed ntried (- n ntried))))
(defun run-test (href)
(let* ((test-directory (merge-pathnames "tests/level1/core/" *directory*))
(lisp (slurp-test (merge-pathnames href test-directory))))
(print lisp)
(funcall (compile nil lisp))))
(test "attrname")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment