From 29510dcc3137aa0537f7bdf23c2913ac58635d75 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Tue, 13 Jan 2015 14:40:44 -0500 Subject: [PATCH] fixed an issue where test submodules were not run --- cover.rkt | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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))