diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-01-08 17:33:25 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-01-08 17:33:25 +0100 |
| commit | ab4808c44de3e5cda60887ede92c8cff0d62ee90 (patch) | |
| tree | 10cebe0fddd0377bc4e6d7259322ec0d67fcea32 /tests/Language | |
| parent | bb4375313e91f4a4b8cf01e41ba25fd248fc392f (diff) | |
| download | graphql-ab4808c44de3e5cda60887ede92c8cff0d62ee90.tar.gz | |
Encode unions
Diffstat (limited to 'tests/Language')
| -rw-r--r-- | tests/Language/GraphQL/AST/EncoderSpec.hs | 12 |
1 files changed, 12 insertions, 0 deletions
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 |