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

tests: use is in a few more places

Browse Source
This commit is contained in:
Simon Michael 2018-09-04 13:39:21 -07:00
parent ff8d582bed
commit 51618adc37
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -833,23 +833,23 @@ parseDateWithFormatOrDefaultFormats mformat s = firstJust $ map parsewith format
-- tests
easytests_CsvReader = tests "CsvReader" [
tests "rulesp" [
tests "parseCsvRules" [
test "empty file" $
expectEq' (Right rules) (parseCsvRules "unknown" "")
,test "trailing comments" $
expectEq' (Right rules{rdirectives = [("skip","")]}) (parseWithState' rules rulesp "skip\n# \n#\n")
parseCsvRules "unknown" "" `is` Right rules
]
,tests "rulesp" [
test "trailing comments" $
parseWithState' rules rulesp "skip\n# \n#\n" `is` Right rules{rdirectives = [("skip","")]}
,test "trailing blank lines" $
expectEq' (Right rules{rdirectives = [("skip","")]}) (parseWithState' rules rulesp "skip\n\n \n")
parseWithState' rules rulesp "skip\n\n \n" `is` (Right rules{rdirectives = [("skip","")]})
,test "no final newline" $
expectEq' (Right rules{rdirectives=[("skip","")]}) (parseWithState' rules rulesp "skip")
parseWithState' rules rulesp "skip" `is` (Right rules{rdirectives=[("skip","")]})
,test "assignment with empty value" $
expectEq'
parseWithState' rules rulesp "account1 \nif foo\n account2 foo\n" `is`
(Right rules{rassignments = [("account1","")], rconditionalblocks = [([["foo"]],[("account2","foo")])]})
(parseWithState' rules rulesp "account1 \nif foo\n account2 foo\n")
]
]

14
hledger-lib/Hledger/Utils/Text.hs
View File

@ -422,12 +422,12 @@ textWidth s = maximum $ map (T.foldr (\a b -> charWidth a + b) 0) $ T.lines s
easytests_Text = tests "Text" [
tests "quoteIfSpaced" [
expectEq' "a'a" (quoteIfSpaced "a'a")
,expectEq' "a\"a" (quoteIfSpaced "a\"a")
,expectEq' "\"a a\"" (quoteIfSpaced "a a")
,expectEq' "\"mimi's cafe\"" (quoteIfSpaced "mimi's cafe")
,expectEq' "\"\\\"alex\\\" cafe\"" (quoteIfSpaced "\"alex\" cafe")
,expectEq' "\"le'shan's cafe\"" (quoteIfSpaced "le'shan's cafe")
,expectEq' "\"\\\"be'any's\\\" cafe\"" (quoteIfSpaced "\"be'any's\" cafe")
quoteIfSpaced "a'a" `is` "a'a"
,quoteIfSpaced "a\"a" `is` "a\"a"
,quoteIfSpaced "a a" `is` "\"a a\""
,quoteIfSpaced "mimi's cafe" `is` "\"mimi's cafe\""
,quoteIfSpaced "\"alex\" cafe" `is` "\"\\\"alex\\\" cafe\""
,quoteIfSpaced "le'shan's cafe" `is` "\"le'shan's cafe\""
,quoteIfSpaced "\"be'any's\" cafe" `is` "\"\\\"be'any's\\\" cafe\""
]
]