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

lib: fix unit tests after 5c095534

Browse Source
This commit is contained in:
Simon Michael 2017-06-06 09:43:05 -07:00
parent 9650e88cc5
commit 7cc2d86ac0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger-lib/Hledger/Data/Transaction.hs
View File

@ -539,7 +539,7 @@ tests_Hledger_Data_Transaction = TestList $ concat [
assertEqual "show a balanced transaction, eliding last amount" assertEqual "show a balanced transaction, eliding last amount"
(unlines (unlines
["2007/01/28 coopportunity" ["2007/01/28 coopportunity"
," expenses:food:groceries $47.18" ," expenses:food:groceries $47.18"
," assets:checking" ," assets:checking"
,"" ,""
]) ])
@ -553,8 +553,8 @@ tests_Hledger_Data_Transaction = TestList $ concat [
assertEqual "show a balanced transaction, no eliding" assertEqual "show a balanced transaction, no eliding"
(unlines (unlines
["2007/01/28 coopportunity" ["2007/01/28 coopportunity"
," expenses:food:groceries $47.18" ," expenses:food:groceries $47.18"
," assets:checking $-47.18" ," assets:checking $-47.18"
,"" ,""
]) ])
(let t = Transaction 0 nullsourcepos (parsedate "2007/01/28") Nothing Uncleared "" "coopportunity" "" [] (let t = Transaction 0 nullsourcepos (parsedate "2007/01/28") Nothing Uncleared "" "coopportunity" "" []
@ -568,8 +568,8 @@ tests_Hledger_Data_Transaction = TestList $ concat [
assertEqual "show an unbalanced transaction, should not elide" assertEqual "show an unbalanced transaction, should not elide"
(unlines (unlines
["2007/01/28 coopportunity" ["2007/01/28 coopportunity"
," expenses:food:groceries $47.18" ," expenses:food:groceries $47.18"
," assets:checking $-47.19" ," assets:checking $-47.19"
,"" ,""
]) ])
(showTransaction (showTransaction
@ -582,7 +582,7 @@ tests_Hledger_Data_Transaction = TestList $ concat [
assertEqual "show an unbalanced transaction with one posting, should not elide" assertEqual "show an unbalanced transaction with one posting, should not elide"
(unlines (unlines
["2007/01/28 coopportunity" ["2007/01/28 coopportunity"
," expenses:food:groceries $47.18" ," expenses:food:groceries $47.18"
,"" ,""
]) ])
(showTransaction (showTransaction
@ -606,7 +606,7 @@ tests_Hledger_Data_Transaction = TestList $ concat [
assertEqual "show a transaction with a priced commodityless amount" assertEqual "show a transaction with a priced commodityless amount"
(unlines (unlines
["2010/01/01 x" ["2010/01/01 x"
," a 1 @ $2" ," a 1 @ $2"
," b" ," b"
,"" ,""
]) ])