diff --git a/cover.rkt b/cover.rkt index e38ad50..9a15777 100644 --- a/cover.rkt +++ b/cover.rkt @@ -61,7 +61,7 @@ (define to-run (if (module-declared? submod) submod file)) (vprintf "running ~s\n" to-run) (namespace-require to-run) - (vprintf "finished running ~s" to-run)))) + (vprintf "finished running ~s\n" to-run)))) (vprintf "ran ~s\n" paths) (not tests-failed))) @@ -131,7 +131,7 @@ (filter values (for/list ([(stx covered?) (get-raw-coverage)]) (and (syntax? stx) - (let* ([orig-src (syntax-source stx)] + (let* ([orig-src (syntax-source stx)] [src (if (path? orig-src) (path->string orig-src) orig-src)] [pos (syntax-position stx)] [span (syntax-span stx)]) diff --git a/main.rkt b/main.rkt index a548577..990b281 100644 --- a/main.rkt +++ b/main.rkt @@ -6,8 +6,11 @@ [coverage/c contract?] [file-coverage/c contract?] [test-files! (->* () (#:submod symbol?) - #:rest (listof (or/c path-string? - (list/c path-string? (vectorof string?)))) + #:rest (lisdtof path-string?) + ;; TODO when we figure out the contract issue we will change this + #; + (listof (or/c path-string? + (list/c path-string? (vectorof string?)))) any)] [clear-coverage! (-> any)] [get-test-coverage (-> coverage/c)] diff --git a/raco.rkt b/raco.rkt index bf2b968..d98f0cf 100644 --- a/raco.rkt +++ b/raco.rkt @@ -4,7 +4,7 @@ racket/match racket/contract/base racket/function - "main.rkt" + "cover.rkt" (only-in "private/contracts.rkt" coverage-gen/c) "private/shared.rkt" "private/file-utils.rkt"