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

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

@ -618,7 +618,7 @@ easytests_JournalReader = tests "JournalReader" [
,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"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
@ -633,7 +633,7 @@ easytests_JournalReader = tests "JournalReader" [
}
-- 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"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
@ -642,7 +642,7 @@ easytests_JournalReader = tests "JournalReader" [
,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"
nullperiodictransaction {
ptperiodexpr = "monthly from 2018/6"
@ -651,7 +651,7 @@ easytests_JournalReader = tests "JournalReader" [
,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"
nullperiodictransaction {
ptperiodexpr = "monthly"
@ -711,9 +711,9 @@ easytests_JournalReader = tests "JournalReader" [
,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 [
"2012/05/14=2012/05/15 (code) desc ; tcomment1",
" ; tcomment2",