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

fix sorting error in coverage map generation

Browse Source
This commit is contained in:
Spencer Florence 2015-09-02 15:03:04 -05:00
parent 5fcbaa6008
commit 6749f551c6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cover/private/format-utils.rkt
View File

@ -145,8 +145,9 @@
(define (srcloc<= locl locr) (define (srcloc<= locl locr)
(match-define (srcloc _ _ _ startl rangel) locl) (match-define (srcloc _ _ _ startl rangel) locl)
(match-define (srcloc _ _ _ startr ranger) locr) (match-define (srcloc _ _ _ startr ranger) locr)
(or (<= startl startr) (or (< startl startr)
(<= ranger rangel))) (and (= startl startr)
(<= ranger rangel))))
;; String -> (Natural -> Natural) ;; String -> (Natural -> Natural)
;; used for determining character/byte offsets for a given ;; used for determining character/byte offsets for a given
@ -188,4 +189,7 @@
(check-equal? (covered? 35) 'covered) (check-equal? (covered? 35) 'covered)
(check-equal? (covered? 52) 'irrelevant) (check-equal? (covered? 52) 'irrelevant)
(check-equal? (covered? 53) 'irrelevant) (check-equal? (covered? 53) 'irrelevant)
(check-equal? (covered? 54) 'irrelevant))))) (check-equal? (covered? 54) 'irrelevant)
(check-equal? (covered? 50) 'uncovered)
(check-equal? (covered? 78) 'uncovered)
(check-equal? (covered? 106) 'uncovered)))))