From 2d88f898eec148dae8c3293d4a08663eed08cf47 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Fri, 13 Mar 2015 10:09:33 -0400 Subject: [PATCH] supress false test failure messages --- tests/error.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tests/error.rkt b/tests/error.rkt index d84b607..d06891e 100644 --- a/tests/error.rkt +++ b/tests/error.rkt @@ -6,11 +6,14 @@ (test-begin (after (define (do-test files) - (apply test-files! files) + (define o (open-output-string)) + (parameterize ([current-error-port o]) + (apply test-files! files)) + (define s (get-output-string o)) (define c (get-test-coverage)) (define covered (hash-keys c)) (for-each - (lambda (x) (check-not-false (member x covered))) + (lambda (x) (check-not-false (member x covered) s)) files) (clear-coverage!)) (define files (map path->string (list error main)))