suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed an issue where test submodules were not run

Browse Source
This commit is contained in:
Spencer Florence 2015-01-13 14:40:44 -05:00
parent a4b0db5c66
commit 29510dcc31
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cover.rkt
View File

@ -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))