diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-05-24 13:51:00 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-05-24 13:51:00 +0200 |
| commit | eb90a4091c1f2586640ee49d6f91fc83c05239f6 (patch) | |
| tree | 33fa9acde72cea2048c7b5269f2f576c982804eb /tests/Test/FragmentSpec.hs | |
| parent | 7cd48217187911855cd2ad473e58d11df0c69d48 (diff) | |
| download | graphql-eb90a4091c1f2586640ee49d6f91fc83c05239f6.tar.gz | |
Check point
Diffstat (limited to 'tests/Test/FragmentSpec.hs')
| -rw-r--r-- | tests/Test/FragmentSpec.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/Test/FragmentSpec.hs b/tests/Test/FragmentSpec.hs index 1616865..5ebecab 100644 --- a/tests/Test/FragmentSpec.hs +++ b/tests/Test/FragmentSpec.hs @@ -9,7 +9,9 @@ import qualified Data.HashMap.Strict as HashMap import Data.Text (Text) import Language.GraphQL import qualified Language.GraphQL.Schema as Schema -import qualified Language.GraphQL.Type as Type +import Language.GraphQL.Type.Definition +import qualified Language.GraphQL.Type.Out as Out +import Language.GraphQL.Type.Schema import Test.Hspec ( Spec , describe @@ -17,21 +19,19 @@ import Test.Hspec , shouldBe , shouldNotSatisfy ) -import Language.GraphQL.Type.Definition -import Language.GraphQL.Type.Schema import Text.RawString.QQ (r) size :: Schema.Resolver IO -size = Schema.wrappedObject "size" $ pure $ Type.S "L" +size = Schema.Resolver "size" $ pure $ Out.String "L" circumference :: Schema.Resolver IO -circumference = Schema.wrappedObject "circumference" $ pure $ Type.I 60 +circumference = Schema.Resolver "circumference" $ pure $ Out.Int 60 garment :: Text -> Schema.Resolver IO -garment typeName = Schema.wrappedObject "garment" +garment typeName = Schema.Resolver "garment" $ pure $ Schema.object [ if typeName == "Hat" then circumference else size - , Schema.wrappedObject "__typename" $ pure $ Type.S typeName + , Schema.Resolver "__typename" $ pure $ Out.String typeName ] inlineQuery :: Text @@ -107,7 +107,7 @@ spec = do } } }|] - resolvers = Schema.wrappedObject "garment" + resolvers = Schema.Resolver "garment" $ pure $ Schema.object [circumference, size] actual <- graphql (toSchema resolvers) sourceQuery |