[uim-commit] r1743 - branches/r5rs/sigscheme/test

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-02 12:35:10 -0700 (Sun, 02 Oct 2005)
New Revision: 1743

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - (total-report): change output message format


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-10-02 16:29:13 UTC (rev 1742)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-10-02 19:35:10 UTC (rev 1743)
@@ -7,12 +7,16 @@
     (begin
       (if (= total-err-num 0)
 	  (begin
-	    (display "OK")
+	    (display "OK : ")
+	    (display total-test-num)
+	    (display " testcase(s) passed")
 	    (newline))
 	  (begin
-	    (display "[ ERROR NUM : ")
+	    (display "FAILED : ")
 	    (display total-err-num)
-	    (display " ]")
+	    (display " testcase(s) out of ")
+	    (display total-test-num)
+	    (display " testcase(s) failed")
 	    (newline))))))
 
 (define report-error