add more tests

This commit is contained in:
Joey Hess 2011-01-04 21:27:08 -04:00
parent aedc46caca
commit a323463726
2 changed files with 32 additions and 14 deletions

15
test.hs
View file

@ -7,14 +7,15 @@ 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
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
, qctest "prop_parentDir_basics" prop_parentDir_basics
, qctest "prop_relPathDirToDir_basics" prop_relPathDirToDir_basics
]
main :: IO (Counts, Int)
main = runVerboseTests (TestList alltests)