From da9aa81ec7e0fc107c4beb384868eed9d57b95ae Mon Sep 17 00:00:00 2001 From: Carel Fellinger Date: Wed, 7 Jun 2017 12:56:43 +0200 Subject: [PATCH] Update AutoTransaction.hs lib: fix unit test some more after 5c095534 --- hledger-lib/Hledger/Data/AutoTransaction.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/hledger-lib/Hledger/Data/AutoTransaction.hs b/hledger-lib/Hledger/Data/AutoTransaction.hs index 1a0119428..d9ed91280 100644 --- a/hledger-lib/Hledger/Data/AutoTransaction.hs +++ b/hledger-lib/Hledger/Data/AutoTransaction.hs @@ -41,24 +41,24 @@ import Hledger.Query -- -- >>> runModifierTransaction Any (ModifierTransaction "" ["pong" `post` usd 2]) nulltransaction{tpostings=["ping" `post` usd 1]} -- 0000/01/01 --- ping $1.00 --- pong $2.00 +-- ping $1.00 +-- pong $2.00 -- -- -- >>> runModifierTransaction Any (ModifierTransaction "miss" ["pong" `post` usd 2]) nulltransaction{tpostings=["ping" `post` usd 1]} -- 0000/01/01 --- ping $1.00 +-- ping $1.00 -- -- -- >>> runModifierTransaction None (ModifierTransaction "" ["pong" `post` usd 2]) nulltransaction{tpostings=["ping" `post` usd 1]} -- 0000/01/01 --- ping $1.00 +-- ping $1.00 -- -- -- >>> runModifierTransaction Any (ModifierTransaction "ping" ["pong" `post` amount{amultiplier=True, aquantity=3}]) nulltransaction{tpostings=["ping" `post` usd 2]} -- 0000/01/01 --- ping $2.00 --- pong $6.00 +-- ping $2.00 +-- pong $6.00 -- -- runModifierTransaction :: Query -> ModifierTransaction -> (Transaction -> Transaction) @@ -138,13 +138,13 @@ renderPostingCommentDates p = p { pcomment = comment' } -- -- >>> mapM_ (putStr . show) $ runPeriodicTransaction (PeriodicTransaction "monthly from 2017/1 to 2017/4" ["hi" `post` usd 1]) nulldatespan -- 2017/01/01 --- hi $1.00 +-- hi $1.00 -- -- 2017/02/01 --- hi $1.00 +-- hi $1.00 -- -- 2017/03/01 --- hi $1.00 +-- hi $1.00 -- runPeriodicTransaction :: PeriodicTransaction -> (DateSpan -> [Transaction]) runPeriodicTransaction pt = generate where