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

make sample ledger more complex to verify a fix

Browse Source
This commit is contained in:
Simon Michael 2008-12-05 08:35:52 +00:00
parent 765edff7f8
commit ecd7575b5e
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Tests.hs
View File

@ -259,7 +259,7 @@ newparse_tests = TestList [ sameParseTests ]
balancereportacctnames_tests = TestList
[
"balancereportacctnames0" ~: ("-s",[]) `gives` ["assets","assets:cash","assets:checking","assets:saving",
"balancereportacctnames0" ~: ("-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"]
,"balancereportacctnames1" ~: ("", []) `gives` ["assets","expenses","income","liabilities"]
@ -268,7 +268,7 @@ balancereportacctnames_tests = TestList
,"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"]
,"balancereportacctnames7" ~: ("-s",["assets"]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"]
,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` []
] where
gives (opt,pats) e = do
@ -288,8 +288,8 @@ balancecommand_tests = TestList [
"balance report with -s" ~:
([SubTotal], []) `gives`
(" $-1 assets\n" ++
" $1 bank:saving\n" ++
" $-2 cash\n" ++
" $1 saving\n" ++
" $2 expenses\n" ++
" $1 food\n" ++
" $1 supplies\n" ++
@ -310,8 +310,8 @@ balancecommand_tests = TestList [
"balance report --depth activates -s" ~:
([Depth "2"], []) `gives`
(" $-1 assets\n" ++
" $1 bank\n" ++
" $-2 cash\n" ++
" $1 saving\n" ++
" $2 expenses\n" ++
" $1 food\n" ++
" $1 supplies\n" ++
@ -342,8 +342,8 @@ balancecommand_tests = TestList [
"balance report with account pattern a" ~:
([], ["a"]) `gives`
(" $-1 assets\n" ++
" $1 bank:saving\n" ++
" $-2 cash\n" ++
" $1 saving\n" ++
" $-1 income:salary\n" ++
" $1 liabilities\n" ++
"--------------------\n" ++
@ -361,8 +361,8 @@ balancecommand_tests = TestList [
,
"balance report with unmatched parent of two matched subaccounts" ~:
([], ["cash","saving"]) `gives`
(" $-2 assets:cash\n" ++
" $1 assets:saving\n" ++
(" $1 assets:bank:saving\n" ++
" $-2 assets:cash\n" ++
"--------------------\n" ++
" $-1\n" ++
"")
@ -396,9 +396,10 @@ balancecommand_tests = TestList [
"balance report with -E shows zero-balance accounts" ~:
([SubTotal,Empty], ["assets"]) `gives`
(" $-1 assets\n" ++
" $1 bank\n" ++
" $0 checking\n" ++
" $1 saving\n" ++
" $-2 cash\n" ++
" $0 checking\n" ++
" $1 saving\n" ++
"--------------------\n" ++
" $-1\n" ++
"")
@ -462,17 +463,17 @@ registercommand_tests = TestList [
do
l <- sampleledger
assertequal (
"2008/01/01 income assets:checking $1 $1\n" ++
"2008/01/01 income assets:bank:checking $1 $1\n" ++
" income:salary $-1 0\n" ++
"2008/06/01 gift assets:checking $1 $1\n" ++
"2008/06/01 gift assets:bank:checking $1 $1\n" ++
" income:gifts $-1 0\n" ++
"2008/06/02 save assets:saving $1 $1\n" ++
" assets:checking $-1 0\n" ++
"2008/06/02 save assets:bank:saving $1 $1\n" ++
" assets:bank:checking $-1 0\n" ++
"2008/06/03 eat & shop expenses:food $1 $1\n" ++
" expenses:supplies $1 $2\n" ++
" assets:cash $-2 0\n" ++
"2008/12/31 pay off liabilities:debts $1 $1\n" ++
" assets:checking $-1 0\n" ++
" assets:bank:checking $-1 0\n" ++
"")
$ showRegisterReport [] [] l
,
@ -506,8 +507,8 @@ registercommand_tests = TestList [
"june" `periodexprgives` ["2008/06/01","2008/06/02","2008/06/03"]
"monthly" `periodexprgives` ["2008/01/01","2008/06/01","2008/12/01"]
assertequal (
"2008/01/01 - 2008/12/31 assets:cash $-2 $-2\n" ++
" assets:saving $1 $-1\n" ++
"2008/01/01 - 2008/12/31 assets:bank:saving $1 $1\n" ++
" assets:cash $-2 $-1\n" ++
" expenses:food $1 0\n" ++
" expenses:supplies $1 $1\n" ++
" income:gifts $-1 0\n" ++
@ -541,9 +542,10 @@ sample_ledger_str = (
";\n" ++
"; Sets up this account tree:\n" ++
"; assets\n" ++
"; bank\n" ++
"; checking\n" ++
"; saving\n" ++
"; cash\n" ++
"; checking\n" ++
"; saving\n" ++
"; expenses\n" ++
"; food\n" ++
"; supplies\n" ++
@ -554,16 +556,16 @@ sample_ledger_str = (
"; debts\n" ++
"\n" ++
"2008/01/01 income\n" ++
" assets:checking $1\n" ++
" assets:bank:checking $1\n" ++
" income:salary\n" ++
"\n" ++
"2008/06/01 gift\n" ++
" assets:checking $1\n" ++
" assets:bank:checking $1\n" ++
" income:gifts\n" ++
"\n" ++
"2008/06/02 save\n" ++
" assets:saving $1\n" ++
" assets:checking\n" ++
" assets:bank:saving $1\n" ++
" assets:bank:checking\n" ++
"\n" ++
"2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++
@ -572,12 +574,14 @@ sample_ledger_str = (
"\n" ++
"2008/12/31 * pay off\n" ++
" liabilities:debts $1\n" ++
" assets:checking\n" ++
" assets:bank:checking\n" ++
"\n" ++
"\n" ++
";final comment\n" ++
"")
write_sample_ledger = writeFile "sample.ledger" sample_ledger_str
rawtransaction1_str = " expenses:food:dining $10.00\n"
rawtransaction1 = RawTransaction "expenses:food:dining" (Mixed [dollars 10]) "" RegularTransaction