diff --git a/cover.rkt b/cover.rkt index 9a15777..1dfe84e 100644 --- a/cover.rkt +++ b/cover.rkt @@ -57,14 +57,17 @@ (vprintf "file ~s had failed tests\n" p) (apply old-check x))]) (define file `(file ,path)) + (run-mod file) (define submod `(submod ,file ,submod-name)) - (define to-run (if (module-declared? submod) submod file)) - (vprintf "running ~s\n" to-run) - (namespace-require to-run) - (vprintf "finished running ~s\n" to-run)))) + (when (module-declared? submod) (run-mod submod))))) (vprintf "ran ~s\n" paths) (not tests-failed))) +(define (run-mod to-run) + (vprintf "running ~s\n" to-run) + (namespace-require to-run) + (vprintf "finished running ~s\n" to-run)) + (define o (current-output-port)) (define (make-cover-load/use-compiled paths) (define load/use-compiled (current-load/use-compiled))