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

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

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