adds the starwars tests for fragments

Also refactors some deplicate objects into a where clause
This commit is contained in:
Pweaver (Paul Weaver) 2016-07-08 16:10:58 -04:00
parent e944c76040
commit cb73e9d53c

View File

@ -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 [ , testGroup "Fragments for complex queries"
"name" .= ("Leia Organa" :: Text) [ 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