simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-10 05:39:31 +03:00
Code Issues Projects Releases Wiki Activity

update negative pattern char in tests

Browse Source
This commit is contained in:
Simon Michael 2009-03-11 02:57:17 +00:00
parent 271a504a99
commit b12e4e3ac2
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Tests.hs
View File

@ -265,10 +265,10 @@ balancereportacctnames_tests = TestList
,"balancereportacctnames2" ~: ("", ["assets"]) `gives` ["assets"]
,"balancereportacctnames3" ~: ("", ["as"]) `gives` ["assets","assets:cash"]
,"balancereportacctnames4" ~: ("", ["assets:cash"]) `gives` ["assets:cash"]
,"balancereportacctnames5" ~: ("", ["-assets"]) `gives` ["expenses","income","liabilities"]
,"balancereportacctnames6" ~: ("", ["-e"]) `gives` []
,"balancereportacctnames5" ~: ("", ["^assets"]) `gives` ["expenses","income","liabilities"]
,"balancereportacctnames6" ~: ("", ["^e"]) `gives` []
,"balancereportacctnames7" ~: ("-s",["assets"]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"]
,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` []
,"balancereportacctnames8" ~: ("-s",["^e"]) `gives` []
] where
gives (opt,pats) e = do
l <- sampleledger
@ -374,7 +374,7 @@ balancecommand_tests = TestList [
"")
,
"balance report with negative account pattern" ~:
([], ["-assets"]) `gives`
([], ["^assets"]) `gives`
(" $2 expenses\n" ++
" $-2 income\n" ++
" $1 liabilities\n" ++
@ -383,10 +383,10 @@ balancecommand_tests = TestList [
"")
,
"balance report negative account pattern always matches full name" ~:
([], ["-e"]) `gives` ""
([], ["^e"]) `gives` ""
,
"balance report negative patterns affect totals" ~:
([], ["expenses","-food"]) `gives`
([], ["expenses","^food"]) `gives`
(" $1 expenses\n" ++
"--------------------\n" ++
" $1\n" ++