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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-07 00:47:11 -0800 (Mon, 07 Nov 2005)
New Revision: 2044

Modified:
   branches/r5rs/sigscheme/test/unittest.scm
Log:
* sigscheme/test/unittest.scm
  - (total-report): Change the report format to GaUnit-like
    easy-to-recognize one


Modified: branches/r5rs/sigscheme/test/unittest.scm
===================================================================
--- branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 08:36:08 UTC (rev 2043)
+++ branches/r5rs/sigscheme/test/unittest.scm	2005-11-07 08:47:11 UTC (rev 2044)
@@ -39,20 +39,17 @@
 
 (define total-report
   (lambda ()
-    (begin
-      (if (= total-err-num 0)
-	  (begin
-	    (display "OK : ")
-	    (display total-test-num)
-	    (display " testcase(s) passed")
-	    (newline))
-	  (begin
-	    (display "FAILED : ")
-	    (display total-err-num)
-	    (display " testcase(s) out of ")
-	    (display total-test-num)
-	    (display " testcase(s) failed")
-	    (newline))))))
+    (for-each display
+              (list
+               (if (zero? total-err-num)
+                   "OK : "
+                   "FAILED : ")
+               1 " tests, "
+               total-test-num " assertions, "
+               (- total-test-num total-err-num) " successes, "
+               total-err-num " failures, "
+               0 " errors"))
+    (newline)))
 
 (define report-error
   (lambda (errmsg)