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

run all tests from internal data, not the sample.ledger file

Browse Source
This commit is contained in:
Simon Michael 2008-12-05 08:33:15 +00:00
parent 866398ecb8
commit 157f47c592
1 changed files with 63 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

128
Tests.hs
View File

@ -238,7 +238,7 @@ balancereportacctnames_tests = TestList
,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` [] ,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` []
] where ] where
gives (opt,pats) e = do gives (opt,pats) e = do
l <- ledgerfromfile pats "sample.ledger" let l = sampleledger
let t = pruneZeroBalanceLeaves $ ledgerAccountTree 999 l let t = pruneZeroBalanceLeaves $ ledgerAccountTree 999 l
assertequal e (balancereportacctnames l (opt=="-s") pats t) assertequal e (balancereportacctnames l (opt=="-s") pats t)
@ -391,28 +391,27 @@ balancecommand_tests = TestList [
) )
(showBalanceReport [] [] l) (showBalanceReport [] [] l)
] where ] where
gives (opts,pats) e = do gives (opts,args) e = do
l <- ledgerfromfile pats "sample.ledger" let l = sampleledgerwithopts [] args
assertequal e (showBalanceReport opts pats l) assertequal e (showBalanceReport opts args l)
printcommand_tests = TestList [ printcommand_tests = TestList [
"print with account patterns" ~: "print with account patterns" ~:
do do
let pats = ["expenses"] let args = ["expenses"]
l <- ledgerfromfile pats "sample.ledger" let l = sampleledgerwithopts [] args
assertequal ( assertequal (
"2008/06/03 * eat & shop\n" ++ "2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++ " expenses:food $1\n" ++
" expenses:supplies $1\n" ++ " expenses:supplies $1\n" ++
" assets:cash $-2\n" ++ " assets:cash $-2\n" ++
"\n") "\n")
$ showEntries [] pats l $ showEntries [] args l
] ]
registercommand_tests = TestList [ registercommand_tests = TestList [
"register report" ~: "register report" ~:
do do
l <- ledgerfromfile [] "sample.ledger"
assertequal ( assertequal (
"2008/01/01 income assets:checking $1 $1\n" ++ "2008/01/01 income assets:checking $1 $1\n" ++
" income:salary $-1 0\n" ++ " income:salary $-1 0\n" ++
@ -426,15 +425,14 @@ registercommand_tests = TestList [
"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:checking $-1 0\n" ++
"") "")
$ showRegisterReport [] [] l $ showRegisterReport [] [] sampleledger
, ,
"register report with account pattern" ~: "register report with account pattern" ~:
do do
l <- ledgerfromfile [] "sample.ledger"
assertequal ( assertequal (
"2008/06/03 eat & shop assets:cash $-2 $-2\n" ++ "2008/06/03 eat & shop assets:cash $-2 $-2\n" ++
"") "")
$ showRegisterReport [] ["cash"] l $ showRegisterReport [] ["cash"] sampleledger
, ,
"register report with display expression" ~: "register report with display expression" ~:
do do
@ -452,7 +450,6 @@ 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"]
let l = ledgerfromstring [] sample_ledger_str
assertequal ( assertequal (
"2008/01/01 - 2008/12/31 assets:cash $-2 $-2\n" ++ "2008/01/01 - 2008/12/31 assets:cash $-2 $-2\n" ++
" assets:saving $1 $-1\n" ++ " assets:saving $1 $-1\n" ++
@ -462,30 +459,77 @@ registercommand_tests = TestList [
" income:salary $-1 $-1\n" ++ " income:salary $-1 $-1\n" ++
" liabilities:debts $1 0\n" ++ " liabilities:debts $1 0\n" ++
"") "")
(showRegisterReport [Period "yearly"] [] l) (showRegisterReport [Period "yearly"] [] sampleledger)
assertequal ["2008/01/01","2008/04/01","2008/10/01"] (datesfromregister $ showRegisterReport [Period "quarterly"] [] l) assertequal ["2008/01/01","2008/04/01","2008/10/01"]
-- assertequal ["2008/01/01","2008/04/01","2008/07/01","2008/10/01"] (datesfromregister $ showRegisterReport [Period "quarterly"] [] l) (datesfromregister $ showRegisterReport [Period "quarterly"] [] sampleledger)
assertequal ["2008/01/01","2008/04/01","2008/07/01","2008/10/01"]
(datesfromregister $ showRegisterReport [Period "quarterly",Empty] [] sampleledger)
] ]
where where
expr `displayexprgives` dates = expr `displayexprgives` dates =
assertequal dates (datesfromregister r) assertequal dates (datesfromregister r)
where where
r = showRegisterReport [Display expr] [] l r = showRegisterReport [Display expr] [] sampleledger
l = ledgerfromstring [] sample_ledger_str
expr `periodexprgives` dates = expr `periodexprgives` dates =
assertequal dates (datesfromregister r) assertequal dates (datesfromregister r)
where where
r = showRegisterReport [Period expr] [] l r = showRegisterReport [Period expr] [] l
l = ledgerfromstringwithopts [Period expr] [] refdate sample_ledger_str l = sampleledgerwithopts [Period expr] []
refdate = parsedate "2008/11/26"
datesfromregister = filter (not . null) . map (strip . take 10) . lines datesfromregister = filter (not . null) . map (strip . take 10) . lines
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- test data -- test data
refdate = parsedate "2008/11/26"
sampleledger = ledgerfromstringwithopts [] [] refdate sample_ledger_str
sampleledgerwithopts opts args = ledgerfromstringwithopts opts args refdate sample_ledger_str
sampleledgerwithoptsanddate opts args date = ledgerfromstringwithopts opts args date sample_ledger_str
sample_ledger_str = (
"; A sample ledger file.\n" ++
";\n" ++
"; Sets up this account tree:\n" ++
"; assets\n" ++
"; cash\n" ++
"; checking\n" ++
"; saving\n" ++
"; expenses\n" ++
"; food\n" ++
"; supplies\n" ++
"; income\n" ++
"; gifts\n" ++
"; salary\n" ++
"; liabilities\n" ++
"; debts\n" ++
"\n" ++
"2008/01/01 income\n" ++
" assets:checking $1\n" ++
" income:salary\n" ++
"\n" ++
"2008/06/01 gift\n" ++
" assets:checking $1\n" ++
" income:gifts\n" ++
"\n" ++
"2008/06/02 save\n" ++
" assets:saving $1\n" ++
" assets:checking\n" ++
"\n" ++
"2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++
" expenses:supplies $1\n" ++
" assets:cash\n" ++
"\n" ++
"2008/12/31 * pay off\n" ++
" liabilities:debts $1\n" ++
" assets:checking\n" ++
"\n" ++
"\n" ++
";final comment\n" ++
"")
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
@ -782,52 +826,6 @@ ledger8_str = "" ++
" c:d \n" ++ " c:d \n" ++
"\n" "\n"
sample_ledger_str = (
"; A sample ledger file.\n" ++
";\n" ++
"; Sets up this account tree:\n" ++
"; assets\n" ++
"; cash\n" ++
"; checking\n" ++
"; saving\n" ++
"; expenses\n" ++
"; food\n" ++
"; supplies\n" ++
"; income\n" ++
"; gifts\n" ++
"; salary\n" ++
"; liabilities\n" ++
"; debts\n" ++
"\n" ++
"2008/01/01 income\n" ++
" assets:checking $1\n" ++
" income:salary\n" ++
"\n" ++
"2008/06/01 gift\n" ++
" assets:checking $1\n" ++
" income:gifts\n" ++
"\n" ++
"2008/06/02 save\n" ++
" assets:saving $1\n" ++
" assets:checking\n" ++
"\n" ++
"2008/06/03 * eat & shop\n" ++
" expenses:food $1\n" ++
" expenses:supplies $1\n" ++
" assets:cash\n" ++
"\n" ++
"2008/12/31 * pay off\n" ++
" liabilities:debts $1\n" ++
" assets:checking\n" ++
"\n" ++
"\n" ++
";final comment\n" ++
"")
write_sample_ledger = writeFile "sample.ledger" sample_ledger_str
read_sample_ledger = readFile "sample.ledger"
timelogentry1_str = "i 2007/03/11 16:19:00 hledger\n" timelogentry1_str = "i 2007/03/11 16:19:00 hledger\n"
timelogentry1 = TimeLogEntry 'i' (parsedatetime "2007/03/11 16:19:00") "hledger" timelogentry1 = TimeLogEntry 'i' (parsedatetime "2007/03/11 16:19:00") "hledger"