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

update a test

Browse Source
This commit is contained in:
Simon Michael 2008-11-22 04:49:49 +00:00
parent 243d5c3086
commit 14168d90e3
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Tests.hs
View File

@ -126,14 +126,6 @@ balancecommandtests = TestList [
\ $1 liabilities:debts\n\ \ $1 liabilities:debts\n\
\" --" \" --"
(showBalanceReport [SubTotal] [] l) (showBalanceReport [SubTotal] [] l)
,
"balance report with negative account patterns" ~: do
l <- ledgerfromfile "sample.ledger"
assertequal (
" $2 expenses\n" ++
" $-2 income\n" ++
"")
(showBalanceReport [] ["-assets","-abiliti"] l)
, ,
"balance report with account pattern o" ~: do "balance report with account pattern o" ~: do
l <- ledgerfromfile "sample.ledger" l <- ledgerfromfile "sample.ledger"
@ -201,6 +193,17 @@ balancecommandtests = TestList [
\ $1\n\ \ $1\n\
\" --" \" --"
$ showBalanceReport [] ["expenses:food"] l $ showBalanceReport [] ["expenses:food"] l
,
"balance report with negative account pattern" ~: do
l <- ledgerfromfile "sample.ledger"
assertequal (
" $2 expenses\n" ++
" $-2 income\n" ++
" $1 liabilities\n" ++
"--------------------\n" ++
" $1\n" ++
"")
(showBalanceReport [] ["-assets"] l)
, ,
"balance report negative account pattern always matches full name" ~: "balance report negative account pattern always matches full name" ~:
do do