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

Support module-suffixes (Issues #101)

Browse Source
This commit is contained in:
Spencer Florence 2015-09-21 15:33:55 -05:00
parent 390d028fda
commit 391f32c7b1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cover/raco.rkt
View File

@ -4,6 +4,7 @@
racket/match racket/match
racket/contract/base racket/contract/base
racket/function racket/function
compiler/module-suffix
"main.rkt" "main.rkt"
(only-in "private/contracts.rkt" coverage-gen/c) (only-in "private/contracts.rkt" coverage-gen/c)
"private/shared.rkt" "private/shared.rkt"
@ -134,14 +135,12 @@
(for/list ([f files] (for/list ([f files]
#:when (maybe [ext? (filename-extension f)] #:when (maybe [ext? (filename-extension f)]
[ext (bytes->string/locale ext?)] [ext (bytes->string/locale ext?)]
[res (ormap (curryr regexp-match? (string-append "." ext)) [res (regexp-match (get-module-suffix-regexp) (string-append "." ext))]))
extensions)]))
f)) f))
(module+ test (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"))) '("a.rkt" "b.rkt" "c/d/e.scrbl")))
;; TODO allow for arbitrary extensions
(define (expand-directories files [exts null]) (define (expand-directories files [exts null])
(define comped (map regexp exts)) (define comped (map regexp exts))
(define paths+vectors (define paths+vectors
@ -230,7 +229,8 @@
(define (get-new-incs) (define (get-new-incs)
(append (get-omits/incs 'test-include-paths) (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 (get-omits/incs s)
(define new-omits (get-info-var (current-directory) s)) (define new-omits (get-info-var (current-directory) s))