From dd28758933ada7d6be85587a1c2520815670f616 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Tue, 30 Dec 2014 11:11:30 -0600 Subject: [PATCH] now checking for valid format types *before* running coverage --- raco.rkt | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/raco.rkt b/raco.rkt index 8dd8ec1..4567551 100644 --- a/raco.rkt +++ b/raco.rkt @@ -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]