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

more balance report test updates

Browse Source
This commit is contained in:
Simon Michael 2009-03-15 11:10:36 +00:00
parent 5fb256b582
commit 82885b3773
1 changed files with 30 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
Tests.hs
View File

@ -73,6 +73,14 @@ $ hledger -f sample.ledger balance o
$-1 $-1
@ @
@
$ hledger -f sample.ledger balance --depth 1
$-1 assets
$2 expenses
$-2 income
$1 liabilities
@
-} -}
-- other test tools: -- other test tools:
-- http://hackage.haskell.org/cgi-bin/hackage-scripts/package/test-framework -- http://hackage.haskell.org/cgi-bin/hackage-scripts/package/test-framework
@ -210,7 +218,7 @@ tests = [
," $1 liabilities:debts" ," $1 liabilities:debts"
] ]
,"balance report level can also be limited with --depth" ~: ,"balance report can be limited with --depth" ~:
([Depth "1"], []) `gives` ([Depth "1"], []) `gives`
[" $-1 assets" [" $-1 assets"
," $2 expenses" ," $2 expenses"
@ -230,7 +238,7 @@ tests = [
,"balance report with account pattern o and --depth 1" ~: ,"balance report with account pattern o and --depth 1" ~:
([Depth "1"], ["o"]) `gives` ([Depth "1"], ["o"]) `gives`
[" $1 expenses:food" [" $1 expenses"
," $-2 income" ," $-2 income"
,"--------------------" ,"--------------------"
," $-1" ," $-1"
@ -242,7 +250,7 @@ tests = [
," $1 bank:saving" ," $1 bank:saving"
," $-2 cash" ," $-2 cash"
," $-1 income:salary" ," $-1 income:salary"
," $1 liabilities" ," $1 liabilities:debts"
,"--------------------" ,"--------------------"
," $-1" ," $-1"
] ]
@ -250,16 +258,22 @@ tests = [
,"balance report with account pattern e" ~: ,"balance report with account pattern e" ~:
([], ["e"]) `gives` ([], ["e"]) `gives`
[" $-1 assets" [" $-1 assets"
," $1 bank:saving"
," $-2 cash"
," $2 expenses" ," $2 expenses"
," $1 food"
," $1 supplies" ," $1 supplies"
," $-2 income" ," $-2 income"
," $-1 gifts"
," $-1 salary"
," $1 liabilities:debts" ," $1 liabilities:debts"
] ]
,"balance report with unmatched parent of two matched subaccounts" ~: ,"balance report with unmatched parent of two matched subaccounts" ~:
([], ["cash","saving"]) `gives` ([], ["cash","saving"]) `gives`
[" $1 assets:bank:saving" [" $-1 assets"
," $-2 assets:cash" ," $1 bank:saving"
," $-2 cash"
,"--------------------" ,"--------------------"
," $-1" ," $-1"
] ]
@ -274,8 +288,12 @@ tests = [
,"balance report with negative account pattern" ~: ,"balance report with negative account pattern" ~:
([], ["not:assets"]) `gives` ([], ["not:assets"]) `gives`
[" $2 expenses" [" $2 expenses"
," $1 food"
," $1 supplies"
," $-2 income" ," $-2 income"
," $1 liabilities" ," $-1 gifts"
," $-1 salary"
," $1 liabilities:debts"
,"--------------------" ,"--------------------"
," $1" ," $1"
] ]
@ -285,7 +303,7 @@ tests = [
,"balance report negative patterns affect totals" ~: ,"balance report negative patterns affect totals" ~:
([], ["expenses","not:food"]) `gives` ([], ["expenses","not:food"]) `gives`
[" $1 expenses" [" $1 expenses:supplies"
,"--------------------" ,"--------------------"
," $1" ," $1"
] ]
@ -314,8 +332,8 @@ tests = [
canonicaliseAmounts True rl -- enable cost basis adjustment canonicaliseAmounts True rl -- enable cost basis adjustment
showBalanceReport [] [] l `is` showBalanceReport [] [] l `is`
unlines unlines
[" $500 a" [" $500 a:b"
," $-500 c" ," $-500 c:d"
] ]
,"balance report elides zero-balance root account(s)" ~: do ,"balance report elides zero-balance root account(s)" ~: do
@ -325,11 +343,10 @@ tests = [
," test:a 1" ," test:a 1"
," test:b" ," test:b"
]) ])
showBalanceReport [] [] l `is` "" showBalanceReport [] [] l `is`
showBalanceReport [SubTotal] [] l `is`
unlines unlines
[" 1 test:a" [" 1 test:a"
," -1 test:b" ," -1 test:b"
] ]
] ]
@ -358,26 +375,6 @@ tests = [
Right e' -> (tamount $ last $ etransactions e') Right e' -> (tamount $ last $ etransactions e')
Left _ -> error "should not happen") Left _ -> error "should not happen")
,"balancereportacctnames" ~:
let gives (opt,pats) e = do
l <- sampleledger
let t = pruneZeroBalanceLeaves $ ledgerAccountTree 999 l
balancereportacctnames l (opt=="-s") pats t `is` e
in TestList
[
"balancereportacctnames 0" ~: ("-s",[]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving",
"assets:cash","expenses","expenses:food","expenses:supplies","income",
"income:gifts","income:salary","liabilities","liabilities:debts"]
,"balancereportacctnames 1" ~: ("", []) `gives` ["assets","expenses","income","liabilities"]
,"balancereportacctnames 2" ~: ("", ["assets"]) `gives` ["assets"]
,"balancereportacctnames 3" ~: ("", ["as"]) `gives` ["assets","assets:cash"]
,"balancereportacctnames 4" ~: ("", ["assets:cash"]) `gives` ["assets:cash"]
,"balancereportacctnames 5" ~: ("", ["^assets"]) `gives` ["expenses","income","liabilities"]
,"balancereportacctnames 6" ~: ("", ["^e"]) `gives` []
,"balancereportacctnames 7" ~: ("-s",["assets"]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"]
,"balancereportacctnames 8" ~: ("-s",["^e"]) `gives` []
]
,"cacheLedger" ~: do ,"cacheLedger" ~: do
(length $ Map.keys $ accountmap $ cacheLedger [] rawledger7) `is` 15 (length $ Map.keys $ accountmap $ cacheLedger [] rawledger7) `is` 15