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

eight balancereportacctnames tests and some cleanup

Browse Source
This commit is contained in:
Simon Michael 2008-11-22 04:38:27 +00:00
parent 14168d90e3
commit c75da36d8d
1 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Tests.hs
View File

@ -15,7 +15,6 @@ runtests args = do
putStrLn $ printf "Running %d tests%s ..\n" n s putStrLn $ printf "Running %d tests%s ..\n" n s
runTestTT flattests runTestTT flattests
where where
tests = [unittests, functests]
deeptests = tfilter matchname $ TestList tests deeptests = tfilter matchname $ TestList tests
flattests = TestList $ filter matchname $ concatMap tflatten tests flattests = TestList $ filter matchname $ concatMap tflatten tests
matchname = matchpats args . tname matchname = matchpats args . tname
@ -25,9 +24,17 @@ runtests args = do
(intercalate ", " $ map (printf "\"%s\"") args) (intercalate ", " $ map (printf "\"%s\"") args)
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- tests
unittests = TestList [ tests =
-- remember to indent assertequal arguments, contrary to haskell-mode auto-indent [TestList []
,misc_tests
,balancereportacctnames_tests
,balancecommand_tests
,registercommand_tests
]
misc_tests = TestList [
"show dollars" ~: show (dollars 1) ~?= "$1.00" "show dollars" ~: show (dollars 1) ~?= "$1.00"
, ,
"show hours" ~: show (hours 1) ~?= "1.0h" "show hours" ~: show (hours 1) ~?= "1.0h"
@ -93,14 +100,26 @@ unittests = TestList [
"" ""
where parse = fromparse . parsewith transactionamount . (" "++) where parse = fromparse . parsewith transactionamount . (" "++)
------------------------------------------------------------------------------ balancereportacctnames_tests = TestList
[
"balancereportacctnames0" ~: ("-s",[]) `gives` ["assets","assets:cash","assets:checking","assets:saving",
"expenses","expenses:food","expenses:supplies","income",
"income:gifts","income:salary","liabilities","liabilities:debts"]
,"balancereportacctnames1" ~: ("", []) `gives` ["assets","expenses","income","liabilities"]
,"balancereportacctnames2" ~: ("", ["assets"]) `gives` ["assets"]
,"balancereportacctnames3" ~: ("", ["as"]) `gives` ["assets","assets:cash"]
,"balancereportacctnames4" ~: ("", ["assets:cash"]) `gives` ["assets:cash"]
,"balancereportacctnames5" ~: ("", ["-assets"]) `gives` ["expenses","income","liabilities"]
,"balancereportacctnames6" ~: ("", ["-e"]) `gives` []
,"balancereportacctnames7" ~: ("-s",["assets"]) `gives` ["assets","assets:cash","assets:checking","assets:saving"]
,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` []
] where
gives (opt,pats) e = do
l <- ledgerfromfile "sample.ledger"
let t = pruneZeroBalanceLeaves $ ledgerAccountTree 999 l
assertequal e (balancereportacctnames l (opt=="-s") pats t)
functests = TestList [ balancecommand_tests = TestList [
balancecommandtests
,registercommandtests
]
balancecommandtests = TestList [
"simple balance report" ~: do "simple balance report" ~: do
l <- ledgerfromfile "sample.ledger" l <- ledgerfromfile "sample.ledger"
assertequal assertequal
@ -221,7 +240,7 @@ balancecommandtests = TestList [
$ showBalanceReport [] ["expenses","-food"] l $ showBalanceReport [] ["expenses","-food"] l
] ]
registercommandtests = TestList [ registercommand_tests = TestList [
"register report" ~: "register report" ~:
do do
l <- ledgerfromfile "sample.ledger" l <- ledgerfromfile "sample.ledger"