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

another test

Browse Source
This commit is contained in:
Simon Michael 2008-10-12 05:09:01 +00:00
parent 35376cfd9b
commit 220b688082
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Tests.hs
View File

@ -156,6 +156,21 @@ balancecommandtests =
(balancereport [ShowSubs] ["o"] l) (balancereport [ShowSubs] ["o"] l)
, ,
"balance report with account pattern a" ~: do
rl <- rawledgerfromfile "sample.ledger"
let l = cacheLedger (mkRegex "a") $ filterRawLedgerEntries "" "" wildcard rl
assertequal
" $-1 assets\n\
\ $-2 cash\n\
\ $1 saving\n\
\ $-1 income:salary\n\
\ $1 liabilities\n\
\--------------------\n\
\ $-1\n\
\" --"
(balancereport [] ["a"] l)
,
"balance report with account pattern e" ~: do "balance report with account pattern e" ~: do
rl <- rawledgerfromfile "sample.ledger" rl <- rawledgerfromfile "sample.ledger"
let l = cacheLedger (mkRegex "e") $ filterRawLedgerEntries "" "" wildcard rl let l = cacheLedger (mkRegex "e") $ filterRawLedgerEntries "" "" wildcard rl
@ -167,19 +182,6 @@ balancecommandtests =
\ $1 liabilities:debts\n\ \ $1 liabilities:debts\n\
\" --" \" --"
(balancereport [] ["e"] l) (balancereport [] ["e"] l)
-- "balance report with account pattern e and showsubs" ~: do
-- rl <- rawledgerfromfile "sample.ledger"
-- let l = cacheLedger (mkRegex "o") $ filterRawLedgerEntries "" "" wildcard rl
-- assertequal
-- " $1 expenses:food\n\
-- \ $-2 income\n\
-- \ $-1 gifts\n\
-- \ $-1 salary\n\
-- \--------------------\n\
-- \ $-1\n\
-- \" --"
-- (balancereport [ShowSubs] ["o"] l)
] ]
-- | Assert a parsed thing equals some expected thing, or print a parse error. -- | Assert a parsed thing equals some expected thing, or print a parse error.