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

Make rackunit print less extraneous newlines.

Browse Source 
original commit: 0618b6e695823d19f115e70a8b4bd246782cdb1b
This commit is contained in:
Eric Dobson 2013-10-17 22:01:57 -07:00
parent 91f9befe34
commit 9083e022e4
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
(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))

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

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