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

fixing test path coverage

Browse Source
This commit is contained in:
Spencer Florence 2015-08-30 13:20:43 -05:00
parent 893b381fc4
commit b86fd6ae6b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cover/raco.rkt
View File

@ -251,8 +251,18 @@
;; path (listof absolute-paths) -> boolean ;; path (listof absolute-paths) -> boolean
(define (should-omit? path omits) (define (should-omit? path omits)
(define epath (explode-path (->absolute path)))
(for/or ([o omits]) (for/or ([o omits])
(regexp-match? o path))) (if (regexp? o)
(regexp-match? o path)
(let ([eo (explode-path (->absolute o))])
(let loop ([eo eo] [ep epath])
(cond [(and (null? eo) (null? ep)) #t]
[(null? eo) #t]
[(null? ep) #f]
[(equal? (car eo) (car ep))
(loop (cdr eo) (cdr ep))]
[else #f]))))))
(module+ test (module+ test
(check-true (should-omit? "/Test/t.rkt" '("/Test"))) (check-true (should-omit? "/Test/t.rkt" '("/Test")))