Commit 8024ffd0 authored by david's avatar david

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

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Tue Feb  3 23:44:27 CET 2004
Standard-date: 2004-02-03 22:44:27 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-29
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))))
#+(or)
(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