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

split up accountsReport unit tests

Browse Source
This commit is contained in:
Simon Michael 2012-05-30 11:23:03 +00:00
parent e6de8df97f
commit ec2f35ef07
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hledger-lib/Hledger/Reports.hs
View File

@ -728,18 +728,20 @@ accountsReport opts q j = (items, total)
| otherwise = abalance acct | otherwise = abalance acct
where acct = ledgerAccount l a where acct = ledgerAccount l a
tests_accountsReport = [ tests_accountsReport =
"accountsReport" ~: do let (opts,journal) `gives` r = do
let (opts,journal) `gives` r = do
let (eitems, etotal) = r let (eitems, etotal) = r
(aitems, atotal) = accountsReport opts (queryFromOpts nulldate opts) journal (aitems, atotal) = accountsReport opts (queryFromOpts nulldate opts) journal
assertEqual "items" eitems aitems assertEqual "items" eitems aitems
-- assertEqual "" (length eitems) (length aitems) -- assertEqual "" (length eitems) (length aitems)
-- mapM (\(e,a) -> assertEqual "" e a) $ zip eitems aitems -- mapM (\(e,a) -> assertEqual "" e a) $ zip eitems aitems
assertEqual "total" etotal atotal assertEqual "total" etotal atotal
in [
-- "accounts report with no args" ~: "accountsReport with no args on null journal" ~: do
(defreportopts, nulljournal) `gives` ([], Mixed [nullamt]) (defreportopts, nulljournal) `gives` ([], Mixed [nullamt])
,"accountsReport with no args on sample journal" ~: do
(defreportopts, samplejournal) `gives` (defreportopts, samplejournal) `gives`
([ ([
("assets","assets",0, amount' "$-1.00") ("assets","assets",0, amount' "$-1.00")
@ -755,7 +757,7 @@ tests_accountsReport = [
], ],
Mixed [nullamt]) Mixed [nullamt])
-- "accounts report can be limited with --depth=N" ~: ,"accountsReport with --depth=N" ~: do
(defreportopts{depth_=Just 1}, samplejournal) `gives` (defreportopts{depth_=Just 1}, samplejournal) `gives`
([ ([
("assets", "assets", 0, amount' "$-1.00") ("assets", "assets", 0, amount' "$-1.00")
@ -765,7 +767,7 @@ tests_accountsReport = [
], ],
Mixed [nullamt]) Mixed [nullamt])
-- or with depth:N ,"accountsReport with depth:N" ~: do
(defreportopts{query_="depth:1"}, samplejournal) `gives` (defreportopts{query_="depth:1"}, samplejournal) `gives`
([ ([
("assets", "assets", 0, amount' "$-1.00") ("assets", "assets", 0, amount' "$-1.00")
@ -775,7 +777,7 @@ tests_accountsReport = [
], ],
Mixed [nullamt]) Mixed [nullamt])
-- with a date span ,"accountsReport with a date or effective date span" ~: do
(defreportopts{query_="date:'in 2009'"}, samplejournal2) `gives` (defreportopts{query_="date:'in 2009'"}, samplejournal2) `gives`
([], ([],
Mixed [nullamt]) Mixed [nullamt])