Add regression test for #197
authorBen Gamari <ben@smart-cactus.org>
Fri, 8 Sep 2017 16:13:43 +0000 (12:13 -0400)
committerBen Gamari <ben@smart-cactus.org>
Mon, 9 Oct 2017 21:34:04 +0000 (17:34 -0400)
tests/Tests/Regressions.hs

index 5d2db97..816af26 100644 (file)
@@ -72,6 +72,16 @@ mapAccumL_resize = do
   assertEqual "mapAccumL should correctly size buffers for two-word results"
              (count * 2) (T.lengthWord16 (snd val))
 
+-- See GitHub #197
+t197 :: IO ()
+t197 =
+    assertBool "length (filter (==',') \"0,00\") should be 1" (currencyParser "0,00")
+  where
+    currencyParser x = cond == 1
+      where
+        cond = length fltr
+        fltr = filter (== ',') x
+
 tests :: F.Test
 tests = F.testGroup "Regressions"
     [ F.testCase "hGetContents_crash" hGetContents_crash
@@ -79,4 +89,5 @@ tests = F.testGroup "Regressions"
     , F.testCase "mapAccumL_resize" mapAccumL_resize
     , F.testCase "replicate_crash" replicate_crash
     , F.testCase "utf8_decode_unsafe" utf8_decode_unsafe
+    , F.testCase "t197" t197
     ]