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

SchemeUnit will now display errors on stderr.

Browse Source 
This seemed like the simplest way to do it. Only errors have output anyways, so I made the error port the output port and caught everything.

svn: r18618

original commit: 26a502d76221e75cd1e72e9c301ac5b9f87a503e
This commit is contained in:
Jay McCarthy 2010-03-25 17:56:07 +00:00
commit 1ee3af576b
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
collects/schemeunit/text-ui.ss
View File

@ -197,24 +197,25 @@
(void)))) (void))))
(define (std-test/text-ui display-context test) (define (std-test/text-ui display-context test)
(begin0 (fold-test-results (parameterize ([current-output-port (current-error-port)])
(lambda (result seed) (fold-test-results
((sequence* (update-counter! result) (lambda (result seed)
(display-test-preamble result) ((sequence* (update-counter! result)
(display-test-case-name result) (display-test-preamble result)
(lambda (hash) (display-test-case-name result)
(display-result result) (lambda (hash)
(display-context result) (display-result result)
hash) (display-context result)
(display-test-postamble result)) hash)
seed)) (display-test-postamble result))
((sequence seed))
(put-initial-counter) ((sequence
(put-initial-name)) (put-initial-counter)
(make-empty-hash)) (put-initial-name))
test (make-empty-hash))
#:fdown (lambda (name seed) ((push-suite-name! name) seed)) test
#:fup (lambda (name kid-seed) ((pop-suite-name!) kid-seed))))) #:fdown (lambda (name seed) ((push-suite-name! name) 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