fixed directory creation in raw format
This commit is contained in:
parent
846c893b32
commit
5acbb1288e
|
@ -1,7 +1,8 @@
|
|||
#lang racket/base
|
||||
(require racket/pretty "../cover.rkt")
|
||||
(require racket/pretty racket/file "../cover.rkt")
|
||||
(provide generate-raw-coverage)
|
||||
(define (generate-raw-coverage coverage files [dir "coverage"])
|
||||
(make-directory* dir)
|
||||
(with-output-to-file (build-path dir "coverage.rktl")
|
||||
#:exists 'replace
|
||||
(lambda () (pretty-write (coverage-wrapper-map coverage)))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user