summaryrefslogtreecommitdiff
path: root/tests/Language/GraphQL/SchemaSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Language/GraphQL/SchemaSpec.hs')
-rw-r--r--tests/Language/GraphQL/SchemaSpec.hs32
1 files changed, 0 insertions, 32 deletions
diff --git a/tests/Language/GraphQL/SchemaSpec.hs b/tests/Language/GraphQL/SchemaSpec.hs
deleted file mode 100644
index 9bc5530..0000000
--- a/tests/Language/GraphQL/SchemaSpec.hs
+++ /dev/null
@@ -1,32 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-module Language.GraphQL.SchemaSpec
- ( spec
- ) where
-
-import qualified Data.Aeson as Aeson
-import qualified Data.Aeson.Types as Aeson
-import qualified Data.HashMap.Strict as HashMap
-import qualified Data.Sequence as Sequence
-import Language.GraphQL.AST.Core
-import Language.GraphQL.Error
-import Language.GraphQL.Schema
-import qualified Language.GraphQL.Type.Out as Out
-import Test.Hspec (Spec, describe, it, shouldBe)
-
-spec :: Spec
-spec =
- describe "resolve" $
- it "ignores invalid __typename" $ do
- let resolver = pure $ object
- [ Resolver "field" $ pure $ Out.String "T"
- ]
- schema = HashMap.singleton "__typename" resolver
- fields = Sequence.singleton
- $ SelectionFragment
- $ Fragment "T" Sequence.empty
- expected = Aeson.object
- [ ("data" , Aeson.emptyObject)
- ]
-
- actual <- runCollectErrs (resolve schema fields)
- actual `shouldBe` expected