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)) (define to-run `(file ,modpath))
(parameterize* ([current-cover-environment env] (parameterize* ([current-cover-environment env]
[current-load/use-compiled (make-cover-load/use-compiled (list modpath))] [current-load/use-compiled (make-cover-load/use-compiled (list modpath))]
[current-compile (get-compile)]
[current-namespace (get-namespace)]) [current-namespace (get-namespace)])
(eval (make-dyn-req-expr to-run)))) (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!) (define (clear-coverage!)
(current-cover-environment (make-clean-cover-environment))) (current-cover-environment (make-clean-cover-environment)))
(define (make-clean-cover-environment) (define (make-clean-cover-environment [make-ns make-base-namespace])
(define ns (make-base-namespace)) (define ns (make-ns))
(parameterize ([current-namespace ns]) (parameterize ([current-namespace ns])
(namespace-require 'cover/coverage) (namespace-require 'cover/coverage)
(namespace-require 'cover/strace) (namespace-require 'cover/strace)

2
main.rkt
View File

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