From 4c82d2b92be3c20aba110315d32c108d90afbbfc Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 29 Dec 2014 19:23:30 -0600 Subject: [PATCH] fixed breaking absolute paths --- cover.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cover.rkt b/cover.rkt index a3c5d8d..0422a63 100644 --- a/cover.rkt +++ b/cover.rkt @@ -19,7 +19,10 @@ (define (test-files! . paths) (clear-coverage!) (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 () (define-values (loc type) (get-module-path (build-path p))) (case type