suzanne.soy/cover
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed breaking absolute paths

Browse Source
This commit is contained in:
Spencer Florence 2014-12-29 19:23:30 -06:00
parent b9a286f3ad
commit 4c82d2b92b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cover.rkt
View File

@ -19,7 +19,10 @@
(define (test-files! . paths) (define (test-files! . paths)
(clear-coverage!) (clear-coverage!)
(for ([path paths]) (for ([path paths])
(define p (path->string (simplify-path (build-path (current-directory) path)))) (define p
(if (absolute-path? path)
path
(path->string (simplify-path (build-path (current-directory) path)))))
(let loop () (let loop ()
(define-values (loc type) (get-module-path (build-path p))) (define-values (loc type) (get-module-path (build-path p)))
(case type (case type