tests/unit-testing.scm: Start report with a fresh-line.

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index e2f130a48793b3d991e5cf882912eaf255b2a070..7a424d0654fa7d71ba9bee84aab3238ee24e0252 100644 (file)
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -52,7 +52,7 @@ USA.
       (reverse! *registered-tests*))))
 
 (define (register-test name test)
-  (guarantee-test test 'ADD-TEST-DEFINITION)
+  (guarantee-test test 'REGISTER-TEST)
   (set! *registered-tests* (cons (cons name test) *registered-tests*))
   unspecific)
 
@@ -148,6 +148,7 @@ USA.
 (define (report-result test-name elapsed-time sub-test-results port)
   (let ((n-sub-test-results (length sub-test-results))
        (n-failed (count failing-sub-test? sub-test-results)))
+    (fresh-line port)
     (write test-name port)
     (write-string ": " port)
     (if (> n-failed 0)