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

whitespace

Browse Source
This commit is contained in:
Simon Michael 2018-08-18 20:31:47 +01:00
parent fc11b5130f
commit bdcfba4eaa
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -816,8 +816,9 @@ tests_Hledger_Read_JournalReader = TestList $ concat [
easytests = tests "JournalReader" [ easytests = tests "JournalReader" [
tests "periodictransactionp" [ tests "periodictransactionp" [
-- tests from #807 -- tests from #807
test "more-period-text-in-comment-after-one-space" $ expectParseEqIO periodictransactionp test "more-period-text-in-comment-after-one-space" $ expectParseEqIO periodictransactionp
"~ monthly from 2018/6 ;In 2019 we will change this\n" "~ monthly from 2018/6 ;In 2019 we will change this\n"
nullperiodictransaction { nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6" ptperiodexpr = "monthly from 2018/6"
@ -830,6 +831,7 @@ easytests = tests "JournalReader" [
,pttags = [] ,pttags = []
,ptpostings = [] ,ptpostings = []
} }
,_test "more-period-text-in-description-after-two-spaces" $ expectParseEqIO periodictransactionp -- TODO ,_test "more-period-text-in-description-after-two-spaces" $ expectParseEqIO periodictransactionp -- TODO
"~ monthly from 2018/6 In 2019 we will change this\n" "~ monthly from 2018/6 In 2019 we will change this\n"
nullperiodictransaction { nullperiodictransaction {
@ -838,6 +840,7 @@ easytests = tests "JournalReader" [
,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing ,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing
,ptdescription = "In 2019 we will change this\n" ,ptdescription = "In 2019 we will change this\n"
} }
,_test "more-period-text-in-description-after-one-space" $ expectParseEqIO periodictransactionp -- TODO ,_test "more-period-text-in-description-after-one-space" $ expectParseEqIO periodictransactionp -- TODO
"~ monthly from 2018/6 In 2019 we will change this\n" "~ monthly from 2018/6 In 2019 we will change this\n"
nullperiodictransaction { nullperiodictransaction {
@ -846,7 +849,8 @@ easytests = tests "JournalReader" [
,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing ,ptspan = DateSpan (Just $ parsedate "2018/06/01") Nothing
,ptdescription = "In 2019 we will change this\n" ,ptdescription = "In 2019 we will change this\n"
} }
,_test "Next-year-in-description" $ expectParseEqIO periodictransactionp -- TODO
,_test "Next-year-in-description" $ expectParseEqIO periodictransactionp -- TODO read error
"~ monthly Next year blah blah\n" "~ monthly Next year blah blah\n"
nullperiodictransaction { nullperiodictransaction {
ptperiodexpr = "monthly" ptperiodexpr = "monthly"
@ -854,5 +858,6 @@ easytests = tests "JournalReader" [
,ptspan = DateSpan Nothing Nothing ,ptspan = DateSpan Nothing Nothing
,ptdescription = "Next year blah blah\n" ,ptdescription = "Next year blah blah\n"
} }
] ]
] ]