Add homePlanet to test schema

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

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

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"

View File

@ -43,4 +43,5 @@ character 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
] ]