jlamothe/csv-sip
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

extra test in decodeRawRows 

I needed to make sure that a trailing comma on a row would leave a blank cell at the end of the row.
This commit is contained in:
Jonathan Lamothe 2022-04-21 00:02:38 -04:00
parent 389c206063
commit 9ec4d7e9c3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/Data/CSV/SlurpSpec.hs
View File

@ -93,6 +93,7 @@ decodeRawRowsSpec = describe "decodeRawRows" $ mapM_
, ( "odd chunk", oddChunkIn, normalRes ) , ( "odd chunk", oddChunkIn, normalRes )
, ( "no newline", noNewlineIn, normalRes ) , ( "no newline", noNewlineIn, normalRes )
, ( "malformed", malformedIn, malformedRes ) , ( "malformed", malformedIn, malformedRes )
, ( "blank end", blankEndIn, blankEndRes )
] ]
where where
@ -158,6 +159,11 @@ decodeRawRowsSpec = describe "decodeRawRows" $ mapM_
, "baz,quux\r\n" , "baz,quux\r\n"
] ]
blankEndIn =
[ "foo,bar,\r\n"
, "baz,quux\r\n"
]
normalRes = normalRes =
[ ["foo", "bar"] [ ["foo", "bar"]
, ["baz", "quux"] , ["baz", "quux"]
@ -188,6 +194,11 @@ decodeRawRowsSpec = describe "decodeRawRows" $ mapM_
, ["baz", "quux"] , ["baz", "quux"]
] ]
blankEndRes =
[ ["foo", "bar", ""]
, ["baz", "quux"]
]
decodeUTF8Spec :: Spec decodeUTF8Spec :: Spec
decodeUTF8Spec = describe "decodeUTF8" $ mapM_ decodeUTF8Spec = describe "decodeUTF8" $ mapM_
( \(label, input, expected) -> context label $ ( \(label, input, expected) -> context label $