Add regression test for haskell#197

(cherry picked from commit 758c116)
strake · Mar 2, 2021 · b227448 · b227448
1 parent 639b580
commit b227448
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/Tests/Regressions.hs b/tests/Tests/Regressions.hs
@@ -72,11 +72,22 @@ mapAccumL_resize = do
   assertEqual "mapAccumL should correctly size buffers for 4-byte results"
              (count * 4) (T.lengthWord8 (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
     , F.testCase "lazy_encode_crash" lazy_encode_crash
     , F.testCase "mapAccumL_resize" mapAccumL_resize
     , F.testCase "replicate_crash" replicate_crash
     , F.testCase "utf8_decode_unsafe" utf8_decode_unsafe
+    , F.testCase "t197" t197
     ]