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
(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)))