From 0618b6e695823d19f115e70a8b4bd246782cdb1b Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Thu, 17 Oct 2013 22:01:57 -0700 Subject: [PATCH] Make rackunit print less extraneous newlines. --- pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt | 5 ++--- pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt index f17ae37d3c..d6102a4f99 100644 --- a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt +++ b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt @@ -39,12 +39,11 @@ [else (substring s 0 n)])) -(define (display-check-info-name-value name value [value-printer write]) +(define (display-check-info-name-value name value [value-printer (lambda (x) (write x) (newline))]) (display (string-pad-right (string-append (symbol->string name) ": ") name-width)) - (value-printer value) - (newline)) + (value-printer value)) (define display-check-info (match-lambda [(struct check-info (name value)) diff --git a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt index b0935af3ab..b1f1493827 100644 --- a/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt +++ b/pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt @@ -141,7 +141,7 @@ (trim-current-directory (location->string (check-info-value info))) - display)] + displayln)] [(check-params? info) (display-check-info-name-value 'params