now checking for valid format types *before* running coverage

This commit is contained in:
Spencer Florence 2014-12-30 11:11:30 -06:00
parent 86cd88b0b1
commit dd28758933

View File

@ -19,14 +19,16 @@
(set! output-format format)]
#:args (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)
(define passed (apply test-files! files))
(define coverage (get-test-coverage))
((case output-format
[("html") generate-html-coverage]
[("coveralls") generate-coveralls-coverage]
[("raw") generate-raw-coverage])
coverage coverage-dir)
(generate-coverage coverage coverage-dir)
(exit
(case passed
[(#t) 0]