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

selftest -> test

Browse Source
This commit is contained in:
Simon Michael 2007-07-04 03:41:15 +00:00
parent 6d1816109c
commit eccc932258
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger.hs
View File

@ -16,7 +16,7 @@ import Options
import Models import Models
import Parse import Parse
import Tests import Tests
import Utils import Utils hiding (test)
main :: IO () main :: IO ()
@ -28,13 +28,13 @@ main = do
| Help `elem` opts = putStr usage | Help `elem` opts = putStr usage
| cmd `isPrefixOf` "register" = register opts acctpats descpats | cmd `isPrefixOf` "register" = register opts acctpats descpats
| cmd `isPrefixOf` "balance" = balance opts acctpats descpats | cmd `isPrefixOf` "balance" = balance opts acctpats descpats
| cmd `isPrefixOf` "test" = selftest | cmd `isPrefixOf` "test" = test
| otherwise = putStr usage | otherwise = putStr usage
-- commands -- commands
selftest :: IO () -- "hledger test" test :: IO ()
selftest = do test = do
Tests.hunit Tests.hunit
Tests.quickcheck Tests.quickcheck
return () return ()