16 lines
469 B
Racket
16 lines
469 B
Racket
#lang racket
|
|
(require cover rackunit racket/runtime-path)
|
|
(define-runtime-path syntax.rkt "syntax.rkt")
|
|
(test-begin
|
|
(after
|
|
(clear-coverage!)
|
|
(test-files! syntax.rkt)
|
|
(define x (get-test-coverage))
|
|
(define c?
|
|
(make-covered? (hash-ref x (path->string syntax.rkt))
|
|
(path->string syntax.rkt)))
|
|
(for ([i (in-naturals 1)]
|
|
[_ (in-string (file->string syntax.rkt))])
|
|
(check-not-eq? (c? i) 'uncovered (~a i)))
|
|
(clear-coverage!)))
|