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

journal: unit tests (2 skipped) for periodtransactionp (#823)

Browse Source
This commit is contained in:
Simon Michael 2018-08-17 12:42:43 +01:00
parent b1bbbf0d93
commit 626247bacd
2 changed files with 40 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Read.hs
View File

@ -366,4 +366,5 @@ tests_Hledger_Read = TestList $
easytests = scope "Read" $ tests [ easytests = scope "Read" $ tests [
Hledger.Read.Common.easytests Hledger.Read.Common.easytests
,JournalReader.easytests
] ]

41
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -65,7 +65,7 @@ module Hledger.Read.JournalReader (
-- * Tests -- * Tests
,tests_Hledger_Read_JournalReader ,tests_Hledger_Read_JournalReader
,easytests
) )
where where
--- * imports --- * imports
@ -84,6 +84,7 @@ import Data.List
import qualified Data.Text as T import qualified Data.Text as T
import Data.Time.Calendar import Data.Time.Calendar
import Data.Time.LocalTime import Data.Time.LocalTime
import EasyTest hiding (char, char')
import Safe import Safe
import Test.HUnit import Test.HUnit
import Text.Megaparsec hiding (parse) import Text.Megaparsec hiding (parse)
@ -93,8 +94,8 @@ import Text.Printf
import System.FilePath import System.FilePath
import "Glob" System.FilePath.Glob hiding (match) import "Glob" System.FilePath.Glob hiding (match)
import Hledger.Data import Hledger.Data hiding (easytests)
import Hledger.Read.Common import Hledger.Read.Common hiding (easytests)
import Hledger.Read.TimeclockReader (timeclockfilep) import Hledger.Read.TimeclockReader (timeclockfilep)
import Hledger.Read.TimedotReader (timedotfilep) import Hledger.Read.TimedotReader (timedotfilep)
import Hledger.Utils import Hledger.Utils
@ -814,3 +815,37 @@ tests_Hledger_Read_JournalReader = TestList $ concat [
]] ]]
-} -}
easytests = scope "JournalReader" $ tests [
scope "periodictransactionp" $ tests [
scope "more-period-text-in-comment" $ expectParseEqIO periodictransactionp
"~ monthly from 2018/6 ;In 2019 we will change this\n"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
,ptinterval = Months 1
,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing
,ptstatus = Unmarked
,ptcode = ""
,ptdescription = ""
,ptcomment = "In 2019 we will change this\n"
,pttags = []
,ptpostings = []
}
,scope "more-period-text-in-description-after-two-spaces" $ skip >> expectParseEqIO periodictransactionp
"~ monthly from 2018/6 In 2019 we will change this\n"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
,ptinterval = Months 1
,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing
,ptcomment = "In 2019 we will change this\n"
}
,scope "more-period-text-in-description-after-one-space" $ skip >> expectParseEqIO periodictransactionp
"~ monthly from 2018/6 In 2019 we will change this\n"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
,ptinterval = Months 1
,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing
,ptcomment = "In 2019 we will change this\n"
}
]
]