Skip to content

Commit 1aecaa6

Browse files
committed
FIXUP: coverage was using the wrong percentages
1 parent 4c7bf46 commit 1aecaa6

File tree

1 file changed

+4
-4
lines changed
  • test/Test/Database/LSMTree/Internal/Index

1 file changed

+4
-4
lines changed

test/Test/Database/LSMTree/Internal/Index/Compact.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -378,13 +378,13 @@ labelIndex :: IndexCompact -> (Property -> Property)
378378
labelIndex ic =
379379
checkCoverage
380380
. QC.tabulate "# Clashes" [showPowersOf 2 nclashes]
381-
. QC.cover 0.7 (nclashes > 0) "Has clashes"
381+
. QC.cover 60 (nclashes > 0) "Has clashes"
382382
. QC.tabulate "# Contiguous clash runs" [showPowersOf 2 (length nscontig)]
383-
. QC.cover 0.3 (not (null nscontig)) "Has contiguous clash runs"
383+
. QC.cover 30 (not (null nscontig)) "Has contiguous clash runs"
384384
. QC.tabulate "Length of contiguous clash runs" (fmap (showPowersOf 2 . snd) nscontig)
385385
. QC.tabulate "Contiguous clashes contain multi-page values" (fmap (show . fst) nscontig)
386-
. QC.cover 0.05 (any fst nscontig) "Has contiguous clashes that contain multi-page values"
387-
. QC.cover 0.01 (multiPageValuesClash ic) "Has clashing multi-page values"
386+
. QC.cover 3 (any fst nscontig) "Has contiguous clashes that contain multi-page values"
387+
. QC.cover 0.1 (multiPageValuesClash ic) "Has clashing multi-page values"
388388
where nclashes = countClashes ic
389389
nscontig = countContiguousClashes ic
390390

0 commit comments

Comments
 (0)