From 30d6a0a58dcdd20bf9ef555d5fc476436f520f85 Mon Sep 17 00:00:00 2001 From: Dmitrii Skurikhin Date: Tue, 31 Mar 2020 10:04:34 +0300 Subject: encode null value as "null" --- tests/Language/GraphQL/AST/EncoderSpec.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests/Language/GraphQL') diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs index 00a875c..6aa8192 100644 --- 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` "\"\\\\\"" -- cgit v1.2.3