From 9735d583d189544ad08012a2acd90781f5e3f1bd Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 29 Jun 2012 18:35:32 +0000 Subject: [PATCH] extra postingsReport test --- hledger-lib/Hledger/Reports.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hledger-lib/Hledger/Reports.hs b/hledger-lib/Hledger/Reports.hs index 36da151a9..681cbd356 100644 --- a/hledger-lib/Hledger/Reports.hs +++ b/hledger-lib/Hledger/Reports.hs @@ -300,6 +300,7 @@ tests_postingsReport = [ assertEqual "" 11 (length $ snd $ postingsReport defreportopts Any samplejournal) assertEqual "" 9 (length $ snd $ postingsReport defreportopts{monthly_=True} Any samplejournal) assertEqual "" 19 (length $ snd $ postingsReport defreportopts{monthly_=True} (Empty True) samplejournal) + assertEqual "" 4 (length $ snd $ postingsReport defreportopts (Acct "assets:bank:checking") samplejournal) -- (defreportopts, And [Acct "a a", Acct "'b"], samplejournal2) `gives` 0 -- [(Just (parsedate "2008-01-01","income"),assets:bank:checking $1,$1)