From: ueno <ueno>
Date: Sun, 28 Nov 2004 08:33:41 +0000 (+0000)
Subject: * test/lunit.el (lunit-report): Accept output filename as the 2nd arg.
X-Git-Tag: riece-1_0_6~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e0af6d89c8504dce40b8c5b85f6e00f46c192628;p=elisp%2Friece.git

* 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/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 ()