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

Ensure that only the rackunit output, not the test output goes to stderr

Browse Source
This commit is contained in:
Jay McCarthy 2015-08-17 11:40:14 -04:00
parent 9548cffb8e
commit a0118d6ccf
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rackunit-lib/rackunit/text-ui.rkt
View File

@ -193,9 +193,9 @@
(void))))
(define (std-test/text-ui display-context test)
(parameterize ([current-output-port (current-error-port)])
(fold-test-results
(lambda (result seed)
(fold-test-results
(lambda (result seed)
(parameterize ([current-output-port (current-error-port)])
((sequence* (update-counter! result)
(display-test-preamble result)
(display-test-case-name result)
@ -204,14 +204,14 @@
(display-context result)
hash)
(display-test-postamble result))
seed))
((sequence
(put-initial-counter)
(put-initial-name))
(make-empty-hash))
test
#:fdown (lambda (name seed) ((push-suite-name! name) seed))
#:fup (lambda (name kid-seed) ((pop-suite-name!) kid-seed)))))
seed)))
((sequence
(put-initial-counter)
(put-initial-name))
(make-empty-hash))
test
#:fdown (lambda (name seed) ((push-suite-name! name) seed))
#:fup (lambda (name kid-seed) ((pop-suite-name!) kid-seed))))
(define (display-summary+return monad)
(monad-value