From ab4808c44de3e5cda60887ede92c8cff0d62ee90 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 8 Jan 2023 17:33:25 +0100 Subject: Encode unions --- tests/Language/GraphQL/AST/EncoderSpec.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'tests/Language/GraphQL') diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs index 862fa34..5116c0e 100644 --- a/tests/Language/GraphQL/AST/EncoderSpec.hs +++ b/tests/Language/GraphQL/AST/EncoderSpec.hs @@ -217,3 +217,15 @@ spec = do |] actual = typeSystemDefinition pretty definition' in actual `shouldBe` expected + + it "encodes an enum definition" $ + let definition' = Full.TypeDefinition + $ Full.UnionTypeDefinition mempty "SearchResult" mempty + $ Full.UnionMemberTypes ["Photo", "Person"] + expected = [gql| + union SearchResult = + | Photo + | Person + |] + actual = typeSystemDefinition pretty definition' + in actual `shouldBe` expected -- cgit v1.2.3