From: ueno <ueno>
Date: Fri, 10 Nov 2000 17:10:00 +0000 (+0000)
Subject: * lunit.el (lunit-test-printer): Simplify messages.
X-Git-Tag: deisui-1_14_0-2000-12-14~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c862c9067ad1ece27aaca6592a5022f2e2fa0b00;p=elisp%2Fflim.git

* lunit.el (lunit-test-printer): Simplify messages.
---

diff --git a/lunit.el b/lunit.el
index 97a197e..8f5c6e7 100644
--- a/lunit.el
+++ b/lunit.el
@@ -255,23 +255,19 @@ TESTS holds a number of instances of `lunit-test'."
 
 (luna-define-method lunit-test-listener-error ((printer lunit-test-printer)
 					       case error)
-  (princ (format "error: %S\n" error)))
+  (princ (format " error: %S" error)))
 
 (luna-define-method lunit-test-listener-failure ((printer lunit-test-printer)
 						 case failure)
-  (princ (format "failure: %S\n" failure)))
+  (princ (format " failure: %S" failure)))
 
 (luna-define-method lunit-test-listener-start ((printer lunit-test-printer) case)
-  (princ (format "\
-______________________________________________________________________
-Starting test `%S#%S'\n"
+  (princ (format "Running `%S#%S'..."
 		 (luna-class-name case)
 		 (lunit-test-name-internal case))))
 
 (luna-define-method lunit-test-listener-end ((printer lunit-test-printer) case)
-  (princ "\
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"))
+  (princ "\n"))
 
 (defun lunit-make-test-suite-from-class (class)
   "Make a test suite from all test methods of the CLASS."