Add test for decodeNewlineDelimited

byteverse · Apr 25, 2024 · f560f3a · f560f3a
1 parent 2ec0de0
commit f560f3a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/Json.hs b/src/Json.hs
@@ -217,7 +217,7 @@ newline-delimited JSON is somewhat common in practice. It's nice to have
 this here instead of having to reimplement it in a bunch of different
 applications.
 
-Note: To protect against malicious input, this reject byte sequences with
+Note: To protect against malicious input, this rejects byte sequences with
 more than 10 million newlines. If this is causing a problem for you, open
 an issue.
 

diff --git a/test/Main.hs b/test/Main.hs
@@ -123,6 +123,12 @@ tests = testGroup "Tests"
         @=?
         BChunks.concat (Builder.run 4 (J.encode (J.String "It\2019s over now")))
     ]
+  , testGroup "decodeNewlineDelimited"
+    [ THU.testCase "no-trailing-newline" $
+        Right (Exts.fromList [J.emptyObject, J.emptyObject])
+        @=?
+        J.decodeNewlineDelimited (shortTextToBytes "{}\n{}")
+    ]
   , testGroup "objectFromList"
     [ THU.testCase "empty object" $
         J.objectFromList []