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

fixed an off-by-one bug in coveralls generation

Browse Source
This commit is contained in:
Spencer Florence 2015-01-02 09:52:42 -05:00
parent 9cddd67eb8
commit c5ab859fb7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
private/coveralls.rkt
View File

@ -73,7 +73,7 @@
(define-values (line-cover _)
(for/fold ([coverage '()] [count 1]) ([line split-src])
(cond [(zero? (string-length line)) (values (cons (json-null) coverage) (add1 count))]
[else (define nw-count (+ count (string-length line)))
[else (define nw-count (+ count (string-length line) 1))
(define all-covered (foldr process-coverage 'missing (range count nw-count)))
(values (cons (process-coverage-value all-covered) coverage) nw-count)])))
(reverse line-cover))