[update tests to use matchcount
Ketil Malde <ketil@malde.org>**20080820084626] {
hunk ./src/Tests.hs 23
-prop_matches (E s) = matches (mkBloomFilter [s]) s == max 0 (fromIntegral (seqlength s)+1-k)
-prop_match_other (E s) (E t) = matches (mkBloomFilter [s]) t <= max 0 (fromIntegral (seqlength t)+1-k)
+prop_matches (E s) = matchcount (mkBloomFilter [s]) s == max 0 (fromIntegral (seqlength s)+1-k)
+prop_match_other (E s) (E t) = matchcount (mkBloomFilter [s]) t <= max 0 (fromIntegral (seqlength t)+1-k)
merger 0.0 (
hunk ./src/Tests.hs 27
+
+-- False positives cause this to fail, I think
hunk ./src/Tests.hs 26
-prop_match_rev1 (E s) (E t) = matches (mkBloomFilter [s]) t == matches (mkBloomFilter [s]) (revcompl t)
-prop_match_rev2 (E s) (E t) = matches (mkBloomFilter [s]) t == matches (mkBloomFilter [revcompl s]) t
+prop_match_rev1 (E s) (E t) = matchcount (mkBloomFilter [s]) t == matchcount (mkBloomFilter [s]) (revcompl t)
+prop_match_rev2 (E s) (E t) = matchcount (mkBloomFilter [s]) t == matchcount (mkBloomFilter [revcompl s]) t
)
hunk ./src/Tests.hs 29
-prop_match_multi (E s) (E t) = let f = matches (mkBloomFilter [s,t]) 
+prop_match_multi (E s) (E t) = let f = matchcount (mkBloomFilter [s,t]) 
}
