From 391f32c7b1b26d560050827aa4827e83a7d85df5 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Mon, 21 Sep 2015 15:33:55 -0500 Subject: [PATCH] Support module-suffixes (Issues #101) --- cover/raco.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/cover/raco.rkt b/cover/raco.rkt index 4752a84..79c30a9 100644 --- a/cover/raco.rkt +++ b/cover/raco.rkt @@ -4,6 +4,7 @@ racket/match racket/contract/base racket/function + compiler/module-suffix "main.rkt" (only-in "private/contracts.rkt" coverage-gen/c) "private/shared.rkt" @@ -134,14 +135,12 @@ (for/list ([f files] #:when (maybe [ext? (filename-extension f)] [ext (bytes->string/locale ext?)] - [res (ormap (curryr regexp-match? (string-append "." ext)) - extensions)])) + [res (regexp-match (get-module-suffix-regexp) (string-append "." ext))])) f)) (module+ test - (check-equal? (filter-exts '("a.rkt" "b.rkt" "c/d/e.scrbl" "a/b/c" "a/b.pop")) + (check-equal? (filter-exts '("a.rkt" "b.rkt" "c/d/e.scrbl" "a/b/c" "a/b.qqq")) '("a.rkt" "b.rkt" "c/d/e.scrbl"))) -;; TODO allow for arbitrary extensions (define (expand-directories files [exts null]) (define comped (map regexp exts)) (define paths+vectors @@ -230,7 +229,8 @@ (define (get-new-incs) (append (get-omits/incs 'test-include-paths) - (get-omits/incs 'cover-include-paths))) + (get-omits/incs 'cover-include-paths) + (get-omits/incs 'module-suffixes))) (define (get-omits/incs s) (define new-omits (get-info-var (current-directory) s))