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