X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Ftest%2Flunit.el;h=ca77507d5f7a6ef2c213738ba5cf18dbbcd736b7;hp=de29e87afb23e88244c7926dfd1628065e2128f0;hb=8bad54d06da1c3ed3beebc9507a397d0bd1efee7;hpb=962c527696ba17ee1416951701c236ee6a5dad4f

diff --git a/lisp/test/lunit.el b/lisp/test/lunit.el
index de29e87..ca77507 100644
--- 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))))
 
-(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))
-	 (buffer (find-file-noselect "lunit-report.xml"))
+	 (buffer (find-file-noselect file))
 	 start-time)
     (save-excursion
       (set-buffer buffer)
@@ -417,8 +417,7 @@ errors=\"%d\" time =\"%.03f\">
 	(insert "\
   </testsuite>
 </testsuites>")
-	(save-buffer)
-	))))
+	(save-buffer)))))
 
 (defvar imenu-create-index-function)
 (defun lunit-create-index-function ()