diff options
| author | Eugen Wissner <belka@caraus.de> | 2022-10-02 11:38:53 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2022-10-02 11:38:53 +0200 |
| commit | bf2e4925b45991476c430bd635d8fbabe7cbecbf (patch) | |
| tree | d0dfc22f70a405283681a2e3c70be4a2d93bae65 /tests/Language/GraphQL | |
| parent | 2321d1a1bcb1974bafa3914f673252993377b5b1 (diff) | |
| download | graphql-bf2e4925b45991476c430bd635d8fbabe7cbecbf.tar.gz | |
Add operation type encoder
Diffstat (limited to 'tests/Language/GraphQL')
| -rw-r--r-- | tests/Language/GraphQL/AST/EncoderSpec.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/Language/GraphQL/AST/EncoderSpec.hs b/tests/Language/GraphQL/AST/EncoderSpec.hs index bc6aac4..febd6fd 100644 --- a/tests/Language/GraphQL/AST/EncoderSpec.hs +++ b/tests/Language/GraphQL/AST/EncoderSpec.hs @@ -173,3 +173,8 @@ spec = do |] '\n' actual = definition pretty operation in actual `shouldBe` expected + + describe "operationType" $ + it "produces lowercase mutation operation type" $ + let actual = operationType pretty Full.Mutation + in actual `shouldBe` "mutation" |