From 6749f551c6df4251f98ad76a9c5b6cfaf093e8c2 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Wed, 2 Sep 2015 15:03:04 -0500 Subject: [PATCH] fix sorting error in coverage map generation --- cover/private/format-utils.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/cover/private/format-utils.rkt b/cover/private/format-utils.rkt index 7b6fa57..e2f10e2 100644 --- a/cover/private/format-utils.rkt +++ b/cover/private/format-utils.rkt @@ -145,8 +145,9 @@ (define (srcloc<= locl locr) (match-define (srcloc _ _ _ startl rangel) locl) (match-define (srcloc _ _ _ startr ranger) locr) - (or (<= startl startr) - (<= ranger rangel))) + (or (< startl startr) + (and (= startl startr) + (<= ranger rangel)))) ;; String -> (Natural -> Natural) ;; used for determining character/byte offsets for a given @@ -188,4 +189,7 @@ (check-equal? (covered? 35) 'covered) (check-equal? (covered? 52) '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)))))