o dribble-tests: 'run-all-tests require the parser function.
o dribble-tests: 'run-all-tests require the parser function.
Index: test/xmlconf.lisp =================================================================== RCS file: /project/cxml/cvsroot/cxml/test/xmlconf.lisp,v retrieving revision 1.14 diff -u -r1.14 xmlconf.lisp --- test/xmlconf.lisp 18 Feb 2007 14:35:16 -0000 1.14 +++ test/xmlconf.lisp 13 Jun 2007 08:15:04 -0000 @@ -66,14 +71,14 @@ (read-sequence result s ) result)))
-(defun dribble-tests (directory) +(defun dribble-tests (parser-fn directory) (let ((base (slot-value (asdf:find-system :cxml) 'asdf::relative-pathname))) (with-open-file (*standard-output* (merge-pathnames "XMLCONF" base) :direction :output :external-format :iso-8859-1 :if-exists :supersede) - (run-all-tests directory)))) + (run-all-tests parser-fn directory))))
(defvar *parser-fn* 'sax-test)