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

better arguments for make-clean-env

Browse Source
This commit is contained in:
Spencer Florence 2015-02-17 15:05:36 -05:00
parent 1f1961057f
commit 3da8acdd51
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cover.rkt
View File

@ -90,7 +90,6 @@ in "coverage.rkt". This raw coverage information is converted to a usable form b
(define to-run `(file ,modpath))
(parameterize* ([current-cover-environment env]
[current-load/use-compiled (make-cover-load/use-compiled (list modpath))]
[current-compile (get-compile)]
[current-namespace (get-namespace)])
(eval (make-dyn-req-expr to-run))))
@ -182,8 +181,8 @@ in "coverage.rkt". This raw coverage information is converted to a usable form b
(define (clear-coverage!)
(current-cover-environment (make-clean-cover-environment)))
(define (make-clean-cover-environment)
(define ns (make-base-namespace))
(define (make-clean-cover-environment [make-ns make-base-namespace])
(define ns (make-ns))
(parameterize ([current-namespace ns])
(namespace-require 'cover/coverage)
(namespace-require 'cover/strace)

2
main.rkt
View File

@ -27,7 +27,7 @@
(-> environment? (any/c boolean? . -> . compiled-expression?))]
[clear-coverage! (-> any)]
[make-clean-cover-environment (-> environment?)]
[make-clean-cover-environment (->* () ((-> namespace?)) environment?)]
[current-cover-environment (parameter/c environment?)]
[get-test-coverage (->* () (environment?) coverage/c)]