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

DTC patch-xmlconf

Browse Source 
o dribble-tests: 'run-all-tests require the parser function.
This commit is contained in:
dlichteblau
2007-06-16 10:03:11 +00:00
parent db31b727ca
commit 0d4ab8c766
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/xmlconf.lisp
View File

@ -66,14 +66,14 @@
(read-sequence result s ) (read-sequence result s )
result))) result)))
(defun dribble-tests (directory) (defun dribble-tests (parser-fn directory)
(let ((base (slot-value (asdf:find-system :cxml) 'asdf::relative-pathname))) (let ((base (slot-value (asdf:find-system :cxml) 'asdf::relative-pathname)))
(with-open-file (*standard-output* (with-open-file (*standard-output*
(merge-pathnames "XMLCONF" base) (merge-pathnames "XMLCONF" base)
:direction :output :direction :output
:external-format :iso-8859-1 :external-format :iso-8859-1
:if-exists :supersede) :if-exists :supersede)
(run-all-tests directory)))) (run-all-tests parser-fn directory))))
(defvar *parser-fn* 'sax-test) (defvar *parser-fn* 'sax-test)