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

now checking for valid format types *before* running coverage

Browse Source
This commit is contained in:
Spencer Florence 2014-12-30 11:11:30 -06:00
parent 86cd88b0b1
commit dd28758933
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
raco.rkt
View File

@ -19,14 +19,16 @@
(set! output-format format)] (set! output-format format)]
#:args (file . files) #:args (file . files)
(cons file files)))) (cons file files))))
(define generate-coverage
(case output-format
[("html") generate-html-coverage]
[("coveralls") generate-coveralls-coverage]
[("raw") generate-raw-coverage]
[else (error 'cover "given unknown coverage output format: ~s" output-format)]))
(printf "generating test coverage for ~s\n" files) (printf "generating test coverage for ~s\n" files)
(define passed (apply test-files! files)) (define passed (apply test-files! files))
(define coverage (get-test-coverage)) (define coverage (get-test-coverage))
((case output-format (generate-coverage coverage coverage-dir)
[("html") generate-html-coverage]
[("coveralls") generate-coveralls-coverage]
[("raw") generate-raw-coverage])
coverage coverage-dir)
(exit (exit
(case passed (case passed
[(#t) 0] [(#t) 0]