From 70dedb691120b44fe13cd22eab62928f872c468b Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 2 Jan 2023 10:30:37 +0100 Subject: Encode interfaces (2018) --- tests/Language/GraphQL/AST/EncoderSpec.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'tests/Language/GraphQL') diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs index 6b424d5..862fa34 100644 --- a/tests/Language/GraphQL/AST/EncoderSpec.hs +++ b/tests/Language/GraphQL/AST/EncoderSpec.hs @@ -201,3 +201,19 @@ spec = do expected = "scalar UUID" actual = typeSystemDefinition pretty definition' in actual `shouldBe` expected + + it "encodes an interface definition" $ + let someType = Full.TypeNamed "String" + argument = Full.InputValueDefinition mempty "arg" someType Nothing mempty + arguments = Full.ArgumentsDefinition [argument] + definition' = Full.TypeDefinition + $ Full.InterfaceTypeDefinition mempty "UUID" mempty + $ pure + $ Full.FieldDefinition mempty "value" arguments someType mempty + expected = [gql| + interface UUID { + value(arg: String): String + } + |] + actual = typeSystemDefinition pretty definition' + in actual `shouldBe` expected -- cgit v1.2.3