From aaee1b1920e9354d4c6e105757e261c5936f0207 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 12 Jul 2012 14:56:49 -0700 Subject: [PATCH] tests/unit-testing.scm: Start report with a fresh-line. --- tests/unit-testing.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.25.1