Add test for decodeNewlineDelimited

Author: andrewthad

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.
 

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 []