forked from OSS/graphql
adds the starwars tests for fragments
Also refactors some deplicate objects into a where clause
This commit is contained in:
Pweaver (Paul Weaver)
parent
e944c76040
commit
cb73e9d53c
@ -18,6 +18,8 @@ import Test.StarWars.Schema
|
|||||||
-- * Test
|
-- * Test
|
||||||
-- See https://github.com/graphql/graphql-js/blob/master/src/__tests__/starWarsQueryTests.js
|
-- See https://github.com/graphql/graphql-js/blob/master/src/__tests__/starWarsQueryTests.js
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
test :: TestTree
|
test :: TestTree
|
||||||
test = testGroup "Star Wars Query Tests"
|
test = testGroup "Star Wars Query Tests"
|
||||||
[ testGroup "Basic Queries"
|
[ testGroup "Basic Queries"
|
||||||
@ -45,9 +47,9 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
"id" .= ("2001" :: Text)
|
"id" .= ("2001" :: Text)
|
||||||
, "name" .= ("R2-D2" :: Text)
|
, "name" .= ("R2-D2" :: Text)
|
||||||
, "friends" .= [
|
, "friends" .= [
|
||||||
object ["name" .= ("Luke Skywalker" :: Text)]
|
object [lukeName]
|
||||||
, object ["name" .= ("Han Solo" :: Text)]
|
, object [hanName]
|
||||||
, object ["name" .= ("Leia Organa" :: Text)]
|
, object [leiaName]
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
]]
|
]]
|
||||||
@ -75,27 +77,27 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
"name" .= ("Luke Skywalker" :: Text)
|
"name" .= ("Luke Skywalker" :: Text)
|
||||||
, "appearsIn" .= ["NEWHOPE","EMPIRE","JEDI" :: Text]
|
, "appearsIn" .= ["NEWHOPE","EMPIRE","JEDI" :: Text]
|
||||||
, "friends" .= [
|
, "friends" .= [
|
||||||
object ["name" .= ("Han Solo" :: Text)]
|
object [hanName]
|
||||||
, object ["name" .= ("Leia Organa" :: Text)]
|
, object [leiaName]
|
||||||
, object ["name" .= ("C-3PO" :: Text)]
|
, object ["name" .= ("C-3PO" :: Text)]
|
||||||
, object ["name" .= ("R2-D2" :: Text)]
|
, object ["name" .= ("R2-D2" :: Text)]
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
, object [
|
, object [
|
||||||
"name" .= ("Han Solo" :: Text)
|
hanName
|
||||||
, "appearsIn" .= [ "NEWHOPE","EMPIRE","JEDI" :: Text]
|
, "appearsIn" .= [ "NEWHOPE","EMPIRE","JEDI" :: Text]
|
||||||
, "friends" .= [
|
, "friends" .= [
|
||||||
object ["name" .= ("Luke Skywalker" :: Text)]
|
object [lukeName]
|
||||||
, object ["name" .= ("Leia Organa" :: Text)]
|
, object [leiaName]
|
||||||
, object ["name" .= ("R2-D2" :: Text)]
|
, object ["name" .= ("R2-D2" :: Text)]
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
, object [
|
, object [
|
||||||
"name" .= ("Leia Organa" :: Text)
|
leiaName
|
||||||
, "appearsIn" .= [ "NEWHOPE","EMPIRE","JEDI" :: Text]
|
, "appearsIn" .= [ "NEWHOPE","EMPIRE","JEDI" :: Text]
|
||||||
, "friends" .= [
|
, "friends" .= [
|
||||||
object ["name" .= ("Luke Skywalker" :: Text)]
|
object [lukeName]
|
||||||
, object ["name" .= ("Han Solo" :: Text)]
|
, object [hanName]
|
||||||
, object ["name" .= ("C-3PO" :: Text)]
|
, object ["name" .= ("C-3PO" :: Text)]
|
||||||
, object ["name" .= ("R2-D2" :: Text)]
|
, object ["name" .= ("R2-D2" :: Text)]
|
||||||
]
|
]
|
||||||
@ -111,9 +113,7 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
|]
|
|]
|
||||||
$ object [ "data" .= object [
|
$ object [ "data" .= object [
|
||||||
"human" .= object [
|
"human" .= object [lukeName]
|
||||||
"name" .= ("Luke Skywalker" :: Text)
|
|
||||||
]
|
|
||||||
]
|
]
|
||||||
]]
|
]]
|
||||||
, testCase "Luke ID with variable" . testQueryParams
|
, testCase "Luke ID with variable" . testQueryParams
|
||||||
@ -127,7 +127,7 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
|]
|
|]
|
||||||
$ object [ "data" .= object [
|
$ object [ "data" .= object [
|
||||||
"human" .= object ["name" .= ("Luke Skywalker" :: Text)]
|
"human" .= object [lukeName]
|
||||||
]]
|
]]
|
||||||
, testCase "Han ID with variable" . testQueryParams
|
, testCase "Han ID with variable" . testQueryParams
|
||||||
(\v -> if v == "someId"
|
(\v -> if v == "someId"
|
||||||
@ -140,7 +140,7 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
|]
|
|]
|
||||||
$ object [ "data" .= object [
|
$ object [ "data" .= object [
|
||||||
"human" .= object ["name" .= ("Han Solo" :: Text)]
|
"human" .= object [hanName]
|
||||||
]]
|
]]
|
||||||
, testCase "Invalid ID" . testQueryParams
|
, testCase "Invalid ID" . testQueryParams
|
||||||
(\v -> if v == "id"
|
(\v -> if v == "id"
|
||||||
@ -152,7 +152,7 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|] $ object ["data" .= object ["human" .= object ["name" .= Aeson.Null]],
|
|] $ object ["data" .= object ["human" .= object ["name" .= Aeson.Null]],
|
||||||
"errors" .= (Aeson.toJSON [object ["message" .= ("field name not resolved." :: Text)]])]
|
"errors" .= Aeson.toJSON [object ["message" .= ("field name not resolved." :: Text)]]]
|
||||||
-- TODO: This test is directly ported from `graphql-js`, however do we want
|
-- TODO: This test is directly ported from `graphql-js`, however do we want
|
||||||
-- to mimic the same behavior? Is this part of the spec? Once proper
|
-- to mimic the same behavior? Is this part of the spec? Once proper
|
||||||
-- exceptions are implemented this test might no longer be meaningful.
|
-- exceptions are implemented this test might no longer be meaningful.
|
||||||
@ -167,9 +167,7 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
|]
|
|]
|
||||||
$ object [ "data" .= object [
|
$ object [ "data" .= object [
|
||||||
"luke" .= object [
|
"luke" .= object [lukeName]
|
||||||
"name" .= ("Luke Skywalker" :: Text)
|
|
||||||
]
|
|
||||||
]]
|
]]
|
||||||
, testCase "R2-D2 ID and friends aliased" . testQuery
|
, testCase "R2-D2 ID and friends aliased" . testQuery
|
||||||
[r| query HeroNameAndFriendsQuery {
|
[r| query HeroNameAndFriendsQuery {
|
||||||
@ -204,14 +202,52 @@ test = testGroup "Star Wars Query Tests"
|
|||||||
}
|
}
|
||||||
|]
|
|]
|
||||||
$ object [ "data" .= object [
|
$ object [ "data" .= object [
|
||||||
"luke" .= object [
|
"luke" .= object [lukeName]
|
||||||
"name" .= ("Luke Skywalker" :: Text)
|
, "leia" .= object [leiaName]
|
||||||
]
|
|
||||||
, "leia" .= object [
|
|
||||||
"name" .= ("Leia Organa" :: Text)
|
|
||||||
]
|
|
||||||
]]
|
]]
|
||||||
|
, testGroup "Fragments for complex queries"
|
||||||
|
[ testCase "Aliases to query for duplicate content" . testQuery
|
||||||
|
[r| query DuplicateFields {
|
||||||
|
luke: human(id: "1000") {
|
||||||
|
name
|
||||||
|
homePlanet
|
||||||
|
}
|
||||||
|
leia: human(id: "1003") {
|
||||||
|
name
|
||||||
|
homePlanet
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|]
|
||||||
|
$ object [ "data" .= object [
|
||||||
|
"luke" .= object [lukeName, tatooine]
|
||||||
|
, "leia" .= object [leiaName, alderaan]
|
||||||
|
]]
|
||||||
|
, testCase "Fragment for duplicate content" . testQuery
|
||||||
|
[r| query UseFragment {
|
||||||
|
luke: human(id: "1000") {
|
||||||
|
...HumanFragment
|
||||||
|
}
|
||||||
|
leia: human(id: "1003") {
|
||||||
|
...HumanFragment
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fragment HumanFragment on Human {
|
||||||
|
name
|
||||||
|
homePlanet
|
||||||
|
}
|
||||||
|
|]
|
||||||
|
$ object [ "data" .= object [
|
||||||
|
"luke" .= object [lukeName, tatooine]
|
||||||
|
, "leia" .= object [leiaName, alderaan]
|
||||||
|
]]
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
where
|
||||||
|
lukeName = "name" .= ("Luke Skywalker" :: Text)
|
||||||
|
leiaName = "name" .= ("Leia Organa" :: Text)
|
||||||
|
hanName = "name" .= ("Han Solo" :: Text)
|
||||||
|
tatooine = "homePlanet" .= ("Tatooine" :: Text)
|
||||||
|
alderaan = "homePlanet" .= ("Alderaan" :: Text)
|
||||||
|
|
||||||
testQuery :: Text -> Aeson.Value -> Assertion
|
testQuery :: Text -> Aeson.Value -> Assertion
|
||||||
testQuery q expected = graphql schema q @?= Just expected
|
testQuery q expected = graphql schema q @?= Just expected
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user