slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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"] ,"balancereportacctnames2" ~: ("", ["assets"]) `gives` ["assets"]
,"balancereportacctnames3" ~: ("", ["as"]) `gives` ["assets","assets:cash"] ,"balancereportacctnames3" ~: ("", ["as"]) `gives` ["assets","assets:cash"]
,"balancereportacctnames4" ~: ("", ["assets:cash"]) `gives` ["assets:cash"] ,"balancereportacctnames4" ~: ("", ["assets:cash"]) `gives` ["assets:cash"]
,"balancereportacctnames5" ~: ("", ["-assets"]) `gives` ["expenses","income","liabilities"] ,"balancereportacctnames5" ~: ("", ["^assets"]) `gives` ["expenses","income","liabilities"]
,"balancereportacctnames6" ~: ("", ["-e"]) `gives` [] ,"balancereportacctnames6" ~: ("", ["^e"]) `gives` []
,"balancereportacctnames7" ~: ("-s",["assets"]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"] ,"balancereportacctnames7" ~: ("-s",["assets"]) `gives` ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"]
,"balancereportacctnames8" ~: ("-s",["-e"]) `gives` [] ,"balancereportacctnames8" ~: ("-s",["^e"]) `gives` []
] where ] where
gives (opt,pats) e = do gives (opt,pats) e = do
l <- sampleledger l <- sampleledger
@ -374,7 +374,7 @@ balancecommand_tests = TestList [
"") "")
, ,
"balance report with negative account pattern" ~: "balance report with negative account pattern" ~:
([], ["-assets"]) `gives` ([], ["^assets"]) `gives`
(" $2 expenses\n" ++ (" $2 expenses\n" ++
" $-2 income\n" ++ " $-2 income\n" ++
" $1 liabilities\n" ++ " $1 liabilities\n" ++
@ -383,10 +383,10 @@ balancecommand_tests = TestList [
"") "")
, ,
"balance report negative account pattern always matches full name" ~: "balance report negative account pattern always matches full name" ~:
([], ["-e"]) `gives` "" ([], ["^e"]) `gives` ""
, ,
"balance report negative patterns affect totals" ~: "balance report negative patterns affect totals" ~:
([], ["expenses","-food"]) `gives` ([], ["expenses","^food"]) `gives`
(" $1 expenses\n" ++ (" $1 expenses\n" ++
"--------------------\n" ++ "--------------------\n" ++
" $1\n" ++ " $1\n" ++