git-annex/test.hs

22 lines
689 B
Haskell
Raw Normal View History

2010-11-02 21:08:16 +00:00
import Test.HUnit
import Test.HUnit.Tools
2010-11-02 20:49:35 +00:00
import GitRepo
2010-11-08 20:47:36 +00:00
import Locations
import Utility
import TypeInternals
2010-11-02 20:49:35 +00:00
alltests :: [Test]
2011-01-05 01:27:08 +00:00
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
2010-11-02 21:08:16 +00:00
]
main :: IO (Counts, Int)
2010-11-02 21:08:16 +00:00
main = runVerboseTests (TestList alltests)