22 lines
752 B
Racket
22 lines
752 B
Racket
#lang racket
|
|
(module+ test
|
|
(require rackunit "../main.rkt" racket/runtime-path)
|
|
(define-runtime-path simple-multi/2.rkt "simple-multi/2.rkt")
|
|
(define env (make-clean-cover-environment))
|
|
(test-begin
|
|
(define file (path->string simple-multi/2.rkt))
|
|
(define modpath file)
|
|
(cover-module! modpath env)
|
|
(define ns (environment-namespace env))
|
|
(eval `(require (file ,modpath)) ns)
|
|
(check-equal? (eval `(two) ns) 10)
|
|
(define x (get-test-coverage env))
|
|
(define covered?
|
|
(make-covered? (hash-ref x file) file))
|
|
(for ([_ (in-string (file->string file))]
|
|
[i (in-naturals 1)])
|
|
(define c (covered? i))
|
|
(check-true (or (eq? c 'covered)
|
|
(eq? c 'irrelevant))
|
|
(~a i)))))
|