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

supress false test failure messages

Browse Source
This commit is contained in:
Spencer Florence 2015-03-13 10:09:33 -04:00
parent 91a185e3b3
commit 2d88f898ee
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/error.rkt
View File

@ -6,11 +6,14 @@
(test-begin (test-begin
(after (after
(define (do-test files) (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 c (get-test-coverage))
(define covered (hash-keys c)) (define covered (hash-keys c))
(for-each (for-each
(lambda (x) (check-not-false (member x covered))) (lambda (x) (check-not-false (member x covered) s))
files) files)
(clear-coverage!)) (clear-coverage!))
(define files (map path->string (list error main))) (define files (map path->string (list error main)))