blob: 28b54b78b8ebc8002be6cf25ed9716e37f8c2256 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
import Test.HUnit
import Test.HUnit.Tools
import GitRepo
import Locations
import Utility
import TypeInternals
alltests :: [Test]
alltests = [
qctest "prop_idempotent_deencode" prop_idempotent_deencode,
qctest "prop_idempotent_fileKey" prop_idempotent_fileKey,
qctest "prop_idempotent_key_read_show" prop_idempotent_key_read_show,
qctest "prop_idempotent_shellescape" prop_idempotent_shellescape,
qctest "prop_idempotent_shellescape_multiword" prop_idempotent_shellescape_multiword
]
main :: IO (Counts, Int)
main = runVerboseTests (TestList alltests)
|