From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Thu, 12 Jul 2012 21:56:49 +0000 (-0700)
Subject: tests/unit-testing.scm: Start report with a fresh-line.
X-Git-Tag: release-9.2.0~238
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aaee1b1920e9354d4c6e105757e261c5936f0207;p=mit-scheme.git

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

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index e2f130a48..7a424d065 100644
--- 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)