diff options
Diffstat (limited to 'tests/Language/GraphQL/SchemaSpec.hs')
| -rw-r--r-- | tests/Language/GraphQL/SchemaSpec.hs | 32 |
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 |
