suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make rackunit print less extraneous newlines.

Browse Source
This commit is contained in:
Eric Dobson 2013-10-17 22:01:57 -07:00
parent 30cecabb88
commit 0618b6e695
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/rackunit-pkgs/rackunit-lib/rackunit/private/format.rkt
View File

@ -39,12 +39,11 @@
[else [else
(substring s 0 n)])) (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 (display (string-pad-right
(string-append (symbol->string name) ": ") (string-append (symbol->string name) ": ")
name-width)) name-width))
(value-printer value) (value-printer value))
(newline))
(define display-check-info (define display-check-info
(match-lambda [(struct check-info (name value)) (match-lambda [(struct check-info (name value))

2
pkgs/rackunit-pkgs/rackunit-lib/rackunit/text-ui.rkt
View File

@ -141,7 +141,7 @@
(trim-current-directory (trim-current-directory
(location->string (location->string
(check-info-value info))) (check-info-value info)))
display)] displayln)]
[(check-params? info) [(check-params? info)
(display-check-info-name-value (display-check-info-name-value
'params 'params