encode null value as "null"

2020-03-31 10:04:34 +03:00
parent 613e929d91
commit 30d6a0a58d
3 changed files with 9 additions and 1 deletions
--- a/tests/Language/GraphQL/AST/EncoderSpec.hs
+++ b/tests/Language/GraphQL/AST/EncoderSpec.hs
@ -12,6 +12,11 @@ import Text.RawString.QQ (r)
 spec :: Spec
 spec = do
    describe "value" $ do
+        context "null value" $ do
+            let testNull formatter = value formatter Null `shouldBe` "null"
+            it "minified" $ testNull minified
+            it "pretty" $ testNull pretty
+
        context "minified" $ do
            it "escapes \\" $
                value minified (String "\\") `shouldBe` "\"\\\\\""