Update of /project/cxml/cvsroot/cxml/test In directory clnet:/tmp/cvs-serv2457
Modified Files: xmlconf.lisp Log Message: DTC patch-xmlconf o dribble-tests: 'run-all-tests require the parser function.
--- /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/02/18 14:35:16 1.14 +++ /project/cxml/cvsroot/cxml/test/xmlconf.lisp 2007/06/16 10:03:11 1.15 @@ -66,14 +66,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)