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