2ae091805e
Roughly this commit switches the instrumentation mechanism to use logging instead of a global hash table. This allows cover to work across phases, and means that cover no longer needs to lift definitions at compile time, fixing some submodule bugs.
13 lines
427 B
Racket
13 lines
427 B
Racket
#lang racket
|
|
(require cover rackunit racket/runtime-path)
|
|
(define-runtime-path syntax.rkt "syntax.rkt")
|
|
(test-begin
|
|
(parameterize ([current-cover-environment (make-cover-environment)])
|
|
(test-files! syntax.rkt)
|
|
(define x (get-test-coverage))
|
|
(define c?
|
|
(curry x (path->string syntax.rkt)))
|
|
(for ([i (in-naturals 1)]
|
|
[_ (in-string (file->string syntax.rkt))])
|
|
(check-not-eq? (c? i) 'uncovered (~a i)))))
|