11 lines
333 B
Racket
11 lines
333 B
Racket
#lang racket
|
|
(require racket/runtime-path "../main.rkt" rackunit "../private/shared.rkt")
|
|
(define-runtime-path reader.rkt "reader.rkt")
|
|
(parameterize ([verbose #t])
|
|
(check-not-exn
|
|
(thunk
|
|
(define r (path->string reader.rkt))
|
|
(test-files! r)
|
|
(define c (make-covered? (hash-ref (get-test-coverage) r) r))
|
|
(c 10))))
|