blob: 2faf579a20806b12672dd9c4ff7168431721c4d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- TODO find a test harness that is actually in Debian and use it.
import Test.HUnit
import Test.HUnit.Tools
import GitRepo
import Locations
alltests :: [Test]
alltests = [
qctest "prop_idempotent_deencode" prop_idempotent_deencode,
qctest "prop_idempotent_fileKey" prop_idempotent_fileKey
]
main :: IO (Counts, Int)
main = runVerboseTests (TestList alltests)
|
