prescientmoon/graphql
1
0
Fork 0
forked from OSS/graphql
Code Pull Requests Activity

Add homePlanet to test schema

Browse Source
This commit is contained in:
Danny Navarro 2016-12-18 11:43:45 -03:00
parent afb2fc4eb9
commit aa66236081
No known key found for this signature in database
GPG Key ID: 81E5F99780FA6A32
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/Test/StarWars/Data.hs
View File

@ -70,7 +70,7 @@ luke' = Human
, _friends = ["1002","1003","2000","2001"] , _friends = ["1002","1003","2000","2001"]
, _appearsIn = [4,5,6] , _appearsIn = [4,5,6]
} }
, homePlanet = "Tatoonie" , homePlanet = "Tatooine"
} }
vader :: Human vader :: Human

4
tests/Test/StarWars/QueryTests.hs
View File

@ -18,8 +18,6 @@ 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"
@ -206,7 +204,7 @@ test = testGroup "Star Wars Query Tests"
, "leia" .= object [leiaName] , "leia" .= object [leiaName]
]] ]]
, testGroup "Fragments for complex queries" , testGroup "Fragments for complex queries"
[ testCase "Aliases to query for duplicate content" . testQuery [ testCase "Aliases to query for duplicate content" . testQuery
[r| query DuplicateFields { [r| query DuplicateFields {
luke: human(id: "1000") { luke: human(id: "1000") {
name name

3
tests/Test/StarWars/Schema.hs
View File

@ -42,5 +42,6 @@ character char =
, Schema.scalar "name" $ name char , Schema.scalar "name" $ name char
, Schema.array "friends" $ character <$> getFriends char , Schema.array "friends" $ character <$> getFriends char
, Schema.enum "appearsIn" . traverse getEpisode $ appearsIn char , Schema.enum "appearsIn" . traverse getEpisode $ appearsIn char
, Schema.scalar "secretBackstory" $ secretBackstory char , Schema.scalar "secretBackstory" $ secretBackstory char
, Schema.scalar "homePlanet" $ either mempty homePlanet char
] ]