From a0118d6ccf2aa45b74331dd0aba1ae04901e1a69 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 17 Aug 2015 11:40:14 -0400 Subject: [PATCH] Ensure that only the rackunit output, not the test output goes to stderr --- rackunit-lib/rackunit/text-ui.rkt | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/rackunit-lib/rackunit/text-ui.rkt b/rackunit-lib/rackunit/text-ui.rkt index b1f1493..5937649 100644 --- a/rackunit-lib/rackunit/text-ui.rkt +++ b/rackunit-lib/rackunit/text-ui.rkt @@ -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