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

add a register command test

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 21:10:36 +00:00
parent 5f1bec0b60
commit a56da854b3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Tests.hs
View File

@ -77,6 +77,7 @@ unittests = TestList [
functests = TestList [ functests = TestList [
balancecommandtests balancecommandtests
,registercommandtests
] ]
balancecommandtests = TestList [ balancecommandtests = TestList [
@ -179,6 +180,13 @@ balancecommandtests = TestList [
assertequal "" $ showBalanceReport [] ["-e"] l assertequal "" $ showBalanceReport [] ["-e"] l
] ]
registercommandtests = TestList [
"register does something" ~:
do
l <- ledgerfromfile "sample.ledger"
assertnotequal "" $ showTransactionsWithBalances [] [] l
]
-- | Assert a parsed thing equals some expected thing, or print a parse error. -- | Assert a parsed thing equals some expected thing, or print a parse error.
assertparseequal :: (Show a, Eq a) => a -> (Either ParseError a) -> Assertion assertparseequal :: (Show a, Eq a) => a -> (Either ParseError a) -> Assertion
assertparseequal expected parsed = either printParseError (assertequal expected) parsed assertparseequal expected parsed = either printParseError (assertequal expected) parsed