From 8bad54d06da1c3ed3beebc9507a397d0bd1efee7 Mon Sep 17 00:00:00 2001
From: Daiki Ueno <ueno@unixuser.org>
Date: Sun, 28 Nov 2004 08:33:41 +0000
Subject: [PATCH] * test/lunit.el (lunit-report): Accept output filename as the
 2nd arg. * Makefile.am (check-local): Supply riece-test with output filename.
 * COMPILE (riece-test): Supply lunit-report with output filename.

* test/lunit.el: Require 'pp.
(lunit-escape-quote): Rename from lunit-test-reporter-format-sexp.
(lunit-report): Add "emacs-version" property.
---
 lisp/ChangeLog     | 4 ++++
 lisp/Makefile.am   | 2 +-
 lisp/test/lunit.el | 7 +++----
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0cdfa8..7eb22af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-11-28  Daiki Ueno  <ueno@unixuser.org>
 
+	* test/lunit.el (lunit-report): Accept output filename as the 2nd arg.
+	* Makefile.am (check-local): Supply riece-test with output filename.
+	* COMPILE (riece-test): Supply lunit-report with output filename.
+
 	* test/lunit.el: Require 'pp.
 	(lunit-escape-quote): Rename from lunit-test-reporter-format-sexp.
 	(lunit-report): Add "emacs-version" property.
diff --git a/lisp/Makefile.am b/lisp/Makefile.am
index d7a9709..2e791c9 100644
--- a/lisp/Makefile.am
+++ b/lisp/Makefile.am
@@ -36,4 +36,4 @@ install-package: package
 		$(PACKAGEDIR) # $(MAKE)
 
 check-local:
-	$(EMACS) $(FLAGS) -l COMPILE -f riece-test
\ No newline at end of file
+	$(EMACS) $(FLAGS) -l COMPILE -f riece-test lunit-report.xml
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 ()
-- 
2.25.1