[cxml-cvs] CVS cxml/test

[dlichteblau]

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)