slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tweak testrunner

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 08:13:29 +00:00
parent 8de6d3b0a9
commit 8306c2f6b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Tests.hs
View File

@ -15,7 +15,7 @@ import RegisterCommand
-- quickcheck = mapM quickCheck ([ -- quickcheck = mapM quickCheck ([
-- ] :: [Bool]) -- ] :: [Bool])
runtests = runTestTT $ tconcat [unittests, functests] runtests = do {putStrLn "Running tests.."; runTestTT $ tconcat [unittests, functests]}
tconcat :: [Test] -> Test tconcat :: [Test] -> Test
tconcat = foldr (\(TestList as) (TestList bs) -> TestList (as ++ bs)) (TestList []) tconcat = foldr (\(TestList as) (TestList bs) -> TestList (as ++ bs)) (TestList [])