diff options
| author | Eugen Wissner <belka@caraus.de> | 2020-09-28 07:06:15 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2020-09-28 07:06:15 +0200 |
| commit | 4602eb1df3a713989b155f0140ff8909eb0370cf (patch) | |
| tree | 6c82cab7436516ba79e2c13454e9f47ecd2ec4b4 /tests/Test/StarWars/QuerySpec.hs | |
| parent | ced9b815db516ac4196856c535eedca85f4a1935 (diff) | |
| download | graphql-4602eb1df3a713989b155f0140ff8909eb0370cf.tar.gz | |
Validate arguments are defined
Diffstat (limited to 'tests/Test/StarWars/QuerySpec.hs')
| -rw-r--r-- | tests/Test/StarWars/QuerySpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Test/StarWars/QuerySpec.hs b/tests/Test/StarWars/QuerySpec.hs index 8d744ab..f9b13d9 100644 --- a/tests/Test/StarWars/QuerySpec.hs +++ b/tests/Test/StarWars/QuerySpec.hs @@ -357,10 +357,10 @@ spec = describe "Star Wars Query Tests" $ do testQuery :: Text -> Aeson.Value -> Expectation testQuery q expected = - let Right (Right actual) = graphql schema q + let Right (Right actual) = graphql starWarsSchema q in Aeson.Object actual `shouldBe` expected testQueryParams :: Aeson.Object -> Text -> Aeson.Value -> Expectation testQueryParams f q expected = - let Right (Right actual) = graphqlSubs schema Nothing f q + let Right (Right actual) = graphqlSubs starWarsSchema Nothing f q in Aeson.Object actual `shouldBe` expected |