diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-10-14 20:50:34 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-10-14 20:50:34 +0200 |
| commit | b056b4256f883c4b52c32d7df9568f8dd12dcfab (patch) | |
| tree | f436c3a8cd14f7d2d7e48f9c00ff425b90e6fc27 /tests/Language/GraphQL/ExecuteSpec.hs | |
| parent | ba07f8298bda9b18ea0408988cc2cd2239ce9726 (diff) | |
| download | graphql-b056b4256f883c4b52c32d7df9568f8dd12dcfab.tar.gz | |
Replace gql in Encoder tests with multiline string
Diffstat (limited to 'tests/Language/GraphQL/ExecuteSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/ExecuteSpec.hs | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/tests/Language/GraphQL/ExecuteSpec.hs b/tests/Language/GraphQL/ExecuteSpec.hs index 52bd410..953f739 100644 --- a/tests/Language/GraphQL/ExecuteSpec.hs +++ b/tests/Language/GraphQL/ExecuteSpec.hs @@ -5,9 +5,7 @@ {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE RecordWildCards #-} {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE QuasiQuotes #-} module Language.GraphQL.ExecuteSpec ( spec @@ -23,7 +21,6 @@ import Language.GraphQL.AST (Document, Location(..), Name) import Language.GraphQL.AST.Parser (document) import Language.GraphQL.Error import Language.GraphQL.Execute (execute) -import Language.GraphQL.TH import qualified Language.GraphQL.Type.Schema as Schema import qualified Language.GraphQL.Type as Type import Language.GraphQL.Type @@ -269,15 +266,15 @@ spec :: Spec spec = describe "execute" $ do it "rejects recursive fragments" $ - let sourceQuery = [gql| - { - ...cyclicFragment - } - - fragment cyclicFragment on Query { - ...cyclicFragment - } - |] + let sourceQuery = "\ + \{\n\ + \ ...cyclicFragment\n\ + \}\n\ + \\n\ + \fragment cyclicFragment on Query {\n\ + \ ...cyclicFragment\n\ + \}\ + \" expected = Response (Object mempty) mempty in sourceQuery `shouldResolveTo` expected |