38 lines
1.3 KiB
Racket
38 lines
1.3 KiB
Racket
#lang racket/base
|
|
(require "cover.rkt" "format.rkt" "private/contracts.rkt" "private/format-utils.rkt"
|
|
"private/raw.rkt" racket/contract)
|
|
|
|
(define (not-impersonated/c c)
|
|
(and/c (lambda (v) (not (impersonator? v)))
|
|
c))
|
|
|
|
(provide
|
|
(contract-out
|
|
[coverage/c contract?]
|
|
|
|
[test-files! (->* () (#:submod symbol?
|
|
#:env environment?)
|
|
#:rest
|
|
(listof (or/c path-string?
|
|
(list/c path-string?
|
|
(not-impersonated/c
|
|
(vectorof (not-impersonated/c string?) #:immutable #t)))))
|
|
any)]
|
|
|
|
[environment? (-> any/c any/c)]
|
|
[environment-namespace (-> environment? namespace?)]
|
|
[environment-compile
|
|
(-> environment? (any/c boolean? . -> . compiled-expression?))]
|
|
|
|
[clear-coverage! (-> any)]
|
|
[make-cover-environment (->* () ((-> namespace?)) environment?)]
|
|
[current-cover-environment (parameter/c environment?)]
|
|
|
|
[get-test-coverage (->* () (environment?) coverage/c)]
|
|
|
|
[irrelevant-submodules (parameter/c (or/c #f (listof symbol?)))]
|
|
|
|
[generate-coveralls-coverage coverage-gen/c]
|
|
[generate-html-coverage coverage-gen/c]
|
|
[generate-raw-coverage coverage-gen/c]))
|