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

tests: dehyphenate test names

Browse Source
This commit is contained in:
Simon Michael 2018-08-20 14:43:35 +01:00
parent be7866da59
commit f124007acf
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Read/Common.hs
View File

@ -1235,8 +1235,8 @@ tests_Hledger_Read_Common = TestList [
easytests_Common = tests "Common" [ easytests_Common = tests "Common" [
tests "amountp" [ tests "amountp" [
test "basic" $ expectParseEq amountp "$47.18" (usd 47.18) test "basic" $ expectParseEq amountp "$47.18" (usd 47.18)
,test "ends-with-decimal-mark" $ expectParseEq amountp "$1." (usd 1 `withPrecision` 0) ,test "ends with decimal mark" $ expectParseEq amountp "$1." (usd 1 `withPrecision` 0)
,test "unit-price" $ expectParseEq amountp "$10 @ €0.5" ,test "unit price" $ expectParseEq amountp "$10 @ €0.5"
-- not precise enough: -- not precise enough:
-- (usd 10 `withPrecision` 0 `at` (eur 0.5 `withPrecision` 1)) -- `withStyle` asdecimalpoint=Just '.' -- (usd 10 `withPrecision` 0 `at` (eur 0.5 `withPrecision` 1)) -- `withStyle` asdecimalpoint=Just '.'
amount{ amount{
@ -1250,7 +1250,7 @@ easytests_Common = tests "Common" [
,astyle=amountstyle{asprecision=1, asdecimalpoint=Just '.'} ,astyle=amountstyle{asprecision=1, asdecimalpoint=Just '.'}
} }
} }
,test "total-price" $ expectParseEq amountp "$10 @@ €5" ,test "total price" $ expectParseEq amountp "$10 @@ €5"
amount{ amount{
acommodity="$" acommodity="$"
,aquantity=10 ,aquantity=10

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

@ -618,7 +618,7 @@ easytests_JournalReader = tests "JournalReader" [
,tests "periodictransactionp" [ ,tests "periodictransactionp" [
test "more-period-text-in-comment-after-one-space" $ expectParseEq periodictransactionp test "more period text in comment after one space" $ expectParseEq 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"
@ -633,7 +633,7 @@ easytests_JournalReader = tests "JournalReader" [
} }
-- TODO #807 -- TODO #807
,_test "more-period-text-in-description-after-two-spaces" $ expectParseEq periodictransactionp ,_test "more period text in description after two spaces" $ expectParseEq 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"
@ -642,7 +642,7 @@ easytests_JournalReader = tests "JournalReader" [
,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" $ expectParseEq periodictransactionp ,_test "more period text in description after one space" $ expectParseEq 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"
@ -651,7 +651,7 @@ easytests_JournalReader = tests "JournalReader" [
,ptdescription = "In 2019 we will change this\n" ,ptdescription = "In 2019 we will change this\n"
} }
,_test "Next-year-in-description" $ expectParseEq periodictransactionp ,_test "Next year in description" $ expectParseEq periodictransactionp
"~ monthly Next year blah blah\n" "~ monthly Next year blah blah\n"
nullperiodictransaction { nullperiodictransaction {
ptperiodexpr = "monthly" ptperiodexpr = "monthly"
@ -711,9 +711,9 @@ easytests_JournalReader = tests "JournalReader" [
,tests "transactionp" [ ,tests "transactionp" [
test "just-a-date" $ expectParseEq transactionp "2015/1/1\n" nulltransaction{tdate=fromGregorian 2015 1 1} test "just a date" $ expectParseEq transactionp "2015/1/1\n" nulltransaction{tdate=fromGregorian 2015 1 1}
,test "more-complex" $ expectParseEq transactionp ,test "more complex" $ expectParseEq transactionp
(T.unlines [ (T.unlines [
"2012/05/14=2012/05/15 (code) desc ; tcomment1", "2012/05/14=2012/05/15 (code) desc ; tcomment1",
" ; tcomment2", " ; tcomment2",