* test/lunit.el (lunit-report): Accept output filename as the 2nd arg.

[riece] / lisp / test / lunit.el

diff --git a/lisp/test/lunit.el b/lisp/test/lunit.el
index de29e87..ca77507 100644 (file)
--- a/lisp/test/lunit.el
+++ b/lisp/test/lunit.el
@@ -366,13 +366,13 @@ signal an error if not."
                         (/ (nth 2 elapsed) 1000000.0))))
       (widen))))
 
                         (/ (nth 2 elapsed) 1000000.0))))
       (widen))))
 

-(defun lunit-report (test)
+(defun lunit-report (test file)

   "Run TEST and output result as XML."
   (let* ((printer
          (luna-make-entity 'lunit-test-printer))
         (result
          (lunit-make-test-result printer))
   "Run TEST and output result as XML."
   (let* ((printer
          (luna-make-entity 'lunit-test-printer))
         (result
          (lunit-make-test-result printer))

-        (buffer (find-file-noselect "lunit-report.xml"))
+        (buffer (find-file-noselect file))

         start-time)
     (save-excursion
       (set-buffer buffer)
         start-time)
     (save-excursion
       (set-buffer buffer)


@@ -417,8 +417,7 @@ errors=\"%d\" time =\"%.03f\">
        (insert "\
   </testsuite>
 </testsuites>")
        (insert "\
   </testsuite>
 </testsuites>")

-       (save-buffer)
-       ))))
+       (save-buffer)))))

 
 (defvar imenu-create-index-function)
 (defun lunit-create-index-function ()
 
 (defvar imenu-create-index-function)
 (defun lunit-create-index-function ()