Fix tests
This commit is contained in:
parent
169931be8f
commit
593871f19b
@ -45,7 +45,7 @@ allDisjoint :: Coverable b => [b] -> Bool
|
||||
allDisjoint [] = True
|
||||
allDisjoint (head:tail) = all (disjoint head) tail && allDisjoint tail
|
||||
|
||||
class (Show e, EntityWithProbability e, Coverable (BareEntity e)) => CoverableEntityWithProbability e where
|
||||
class (EntityWithProbability e, Coverable (BareEntity e)) => CoverableEntityWithProbability e where
|
||||
precisionScore :: e -> BareEntity e -> Double
|
||||
precisionScore got expected = coveredScore (getBareEntity got) expected
|
||||
precisionScoreTotal :: [e] -> [BareEntity e] -> Double
|
||||
|
@ -1 +1 @@
|
||||
foo:1-10 foo:12-20
|
||||
foo:1-9 foo:12-19
|
||||
|
|
@ -1 +1 @@
|
||||
foo:5-15
|
||||
foo:5-14
|
||||
|
|
@ -1,2 +1,2 @@
|
||||
foo:658-699
|
||||
foo:0-75
|
||||
foo:658-698
|
||||
foo:0-74
|
||||
|
|
@ -1,2 +1,2 @@
|
||||
foo:658-700,701-7000
|
||||
foo:1870-1893
|
||||
foo:658-699 foo:701-6999
|
||||
foo:1870-1892
|
||||
|
|
Loading…
Reference in New Issue
Block a user