Test array encoding

Author: andrewthad

src/Json.hs

@@ -127,6 +127,7 @@ emptyObjectValue :: Value
 emptyObjectValue = Object ChunksNil
 
 isSpace :: Word8 -> Prelude.Bool
+{-# inline isSpace #-}
 isSpace w =
      w == c2w ' '
   || w == c2w '\t'
@@ -234,6 +235,7 @@ parser = \case
   _ -> P.fail InvalidLeader
 
 objectTrailedByBrace :: Parser SyntaxException s Value
+{-# inline objectTrailedByBrace #-}
 objectTrailedByBrace = do
   P.skipWhile isSpace
   Latin.any IncompleteObject >>= \case
@@ -280,6 +282,7 @@ objectStep !b = do
 --
 -- This parser handles everything after the LBRACKET character.
 arrayTrailedByBracket :: Parser SyntaxException s Value
+{-# inline arrayTrailedByBracket #-}
 arrayTrailedByBracket = do
   P.skipWhile isSpace
   Latin.any IncompleteArray >>= \case

test/Main.hs

@@ -4,6 +4,7 @@
 import Control.Monad (when)
 import Data.ByteString.Short.Internal (ShortByteString(SBS))
 import Data.Bytes (Bytes)
+import Data.Chunks (Chunks(ChunksCons,ChunksNil))
 import Data.Primitive (ByteArray(ByteArray))
 import Data.Scientific (Scientific,scientific)
 import Data.Text.Short (ShortText)
@@ -62,6 +63,14 @@ tests = testGroup "Tests"
   , THU.testCase "H" $ case J.decode (shortTextToBytes " [] x") of
       Left _ -> pure ()
       Right _ -> fail "this was not supposed parse"
+  , THU.testCase "I" $
+      BChunks.concat (Builder.run 1 (J.encode (J.Array (ChunksCons mempty ChunksNil))))
+      @=?
+      Bytes.fromLatinString "[]"
+  , THU.testCase "J" $
+      BChunks.concat (Builder.run 1 (J.encode (J.Array ChunksNil)))
+      @=?
+      Bytes.fromLatinString "[]"
   , THU.testCase "Twitter100" $
       case J.decode (Bytes.fromByteArray encodedTwitter100) of
         Left _ -> fail "nope"