OSS/graphql
1
1
Fork 1
Code Issues 4 Pull Requests Actions Releases 22 Wiki Activity

Validate variable usages are allowed in arguments

Browse Source
This commit is contained in:
Eugen Wissner
2020-12-26 06:31:56 +01:00
parent 5a6709030c
commit 22abf7ca58
4 changed files with 238 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
tests/Language/GraphQL/ValidateSpec.hs
View File

@ -485,7 +485,7 @@ spec =
"Variable \"$dog\" cannot be non-input type \"Dog\"."
, locations = [AST.Location 2 34]
}
in validate queryString `shouldBe` [expected]
in validate queryString `shouldContain` [expected]
it "rejects undefined variables" $
let queryString = [r|
@ -808,3 +808,35 @@ spec =
, locations = [AST.Location 4 19]
}
in validate queryString `shouldBe` [expected]
it "wrongly typed variable arguments" $
let queryString = [r|
query catCommandArgQuery($catCommandArg: CatCommand) {
cat {
doesKnowCommand(catCommand: $catCommandArg)
}
}
|]
expected = Error
{ message =
"Variable \"$catCommandArg\" of type \"CatCommand\" \
\used in position expecting type \"!CatCommand\"."
, locations = [AST.Location 2 40]
}
in validate queryString `shouldBe` [expected]
it "wrongly typed variable arguments" $
let queryString = [r|
query intCannotGoIntoBoolean($intArg: Int) {
dog {
isHousetrained(atOtherHomes: $intArg)
}
}
|]
expected = Error
{ message =
"Variable \"$intArg\" of type \"Int\" used in position \
\expecting type \"Boolean\"."
, locations = [AST.Location 2 44]
}
in validate queryString `shouldBe` [expected]