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

removed some bad names

Browse Source
This commit is contained in:
Spencer Florence 2015-01-11 10:37:01 -05:00
parent 15bfa15225
commit c12f4ae317
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cover.rkt
View File

@ -36,9 +36,9 @@
(loop)] (loop)]
[else (void)]))) [else (void)])))
(parameterize ([use-compiled-file-paths (parameterize ([use-compiled-file-paths
(cons (build-path "compiled" "better-test") (cons (build-path "compiled" "cover")
(use-compiled-file-paths))] (use-compiled-file-paths))]
[current-compile (make-better-test-compile)] [current-compile (make-cover-compile)]
[current-output-port (open-output-nowhere)]) [current-output-port (open-output-nowhere)])
(define tests-failed #f) (define tests-failed #f)
(for ([p paths]) (for ([p paths])
@ -60,7 +60,7 @@
(namespace-require submod))))) (namespace-require submod)))))
(not tests-failed))) (not tests-failed)))
(define (make-better-test-compile) (define (make-cover-compile)
(define compile (current-compile)) (define compile (current-compile))
(define reg (namespace-module-registry ns)) (define reg (namespace-module-registry ns))
(define phase (namespace-base-phase ns)) (define phase (namespace-base-phase ns))