From 9021f3a25d2b474160abae58cd98c4b6d08d87d0 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 10 Jan 2023 09:53:18 +0100 Subject: Encode input object types --- tests/Language/GraphQL/AST/EncoderSpec.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'tests/Language') diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs index a4ba470..3fa6a02 100644 --- a/tests/Language/GraphQL/AST/EncoderSpec.hs +++ b/tests/Language/GraphQL/AST/EncoderSpec.hs @@ -249,3 +249,21 @@ spec = do |] actual = typeSystemDefinition pretty definition' in actual `shouldBe` expected + + it "encodes an input type" $ + let intType = Full.TypeNonNull $ Full.NonNullTypeNamed "Int" + stringType = Full.TypeNamed "String" + fields = + [ Full.InputValueDefinition mempty "a" stringType Nothing mempty + , Full.InputValueDefinition mempty "b" intType Nothing mempty + ] + definition' = Full.TypeDefinition + $ Full.InputObjectTypeDefinition mempty "ExampleInputObject" mempty fields + expected = [gql| + input ExampleInputObject { + a: String + b: Int! + } + |] + actual = typeSystemDefinition pretty definition' + in actual `shouldBe` expected -- cgit v1.2.3