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

filter output files for #106

Browse Source
This commit is contained in:
Spencer Florence 2015-10-29 22:17:38 -04:00
parent b54f664bd1
commit d226a3cf2f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cover/raco.rkt
View File

@ -44,7 +44,7 @@
(set! verbose #t)] (set! verbose #t)]
[("-b" "--exclude-pkg-basics") [("-b" "--exclude-pkg-basics")
"exclude info.rkt, the tests directory, and the scribblings directory from the coverage report" "exclude info.rkt, the tests directory, and the scribblings directory from the coverage report"
(set! exclude-paths (append '("info.rkt" "tests" "scribblings") exclude-paths))] (set! exclude-paths (list* "info.rkt" "tests" "scribblings" exclude-paths))]
#:multi #:multi
[("-n" "--no-output-for-path") t [("-n" "--no-output-for-path") t
"exclude any paths named this from the coverage report." "exclude any paths named this from the coverage report."
@ -90,13 +90,13 @@
[(package) (lambda (a b) [(package) (lambda (a b)
(expand-directories (map pkg-directory a) b))])) (expand-directories (map pkg-directory a) b))]))
(define files (path-expand args include-exts)) (define files (path-expand args include-exts))
(define cleaned-files (remove-excluded-paths files exclude-paths))
(define generate-coverage (define generate-coverage
(hash-ref (get-formats) output-format (hash-ref (get-formats) output-format
(lambda _ (error 'cover "given unknown coverage output format: ~s" output-format)))) (lambda _ (error 'cover "given unknown coverage output format: ~s" output-format))))
(printf "generating test coverage for ~s\n" files) (printf "generating test coverage for ~s\n" cleaned-files)
(define passed (apply test-files! #:submod submod files)) (define passed (apply test-files! #:submod submod files))
(define coverage (get-test-coverage)) (define coverage (get-test-coverage))
(define cleaned-files (remove-excluded-paths files exclude-paths))
(printf "dumping coverage info into ~s\n" coverage-dir) (printf "dumping coverage info into ~s\n" coverage-dir)
(parameterize ([irrelevant-submodules irrel-submods]) (parameterize ([irrelevant-submodules irrel-submods])
(generate-coverage coverage cleaned-files coverage-dir)) (generate-coverage coverage cleaned-files coverage-dir))