Traverse input object properties once

2021-04-12 07:09:39 +02:00
parent d6dda14cfd
commit 5654b78935
4 changed files with 24 additions and 14 deletions
--- a/tests/Language/GraphQL/Validate/RulesSpec.hs
+++ b/tests/Language/GraphQL/Validate/RulesSpec.hs
@ -929,3 +929,18 @@ spec =
                        , locations = [AST.Location 4 54]
                        }
                 in validate queryString `shouldBe` [expected]
+
+            it "validates input object properties once" $
+                let queryString = [r|
+                  {
+                    findDog(complex: { name: 3 }) {
+                      name
+                    }
+                  }
+                |]
+                    expected = Error
+                        { message =
+                            "Value 3 cannot be coerced to type \"!String\"."
+                        , locations = [AST.Location 3 46]
+                        }
+                 in validate queryString `shouldBe` [expected]