Validate input object field names

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/Language/GraphQL/ValidateSpec.hs b/tests/Language/GraphQL/ValidateSpec.hs
index fd53145..b4433ca 100644
--- a/tests/Language/GraphQL/ValidateSpec.hs
+++ b/tests/Language/GraphQL/ValidateSpec.hs
@@ -590,3 +590,19 @@ spec =
                     , locations = [AST.Location 4 54]
                     }
              in validate queryString `shouldBe` [expected]
+
+        it "rejects undefined input object fields" $
+            let queryString = [r|
+              {
+                findDog(complex: { favoriteCookieFlavor: "Bacon" }) {
+                  name
+                }
+              }
+            |]
+                expected = Error
+                    { message =
+                        "Field \"favoriteCookieFlavor\" is not defined \
+                        \by type \"DogData\"."
+                    , locations = [AST.Location 3 36]
+                    }
+             in validate queryString `shouldBe` [expected]