diff options
| author | Danny Navarro <j@dannynavarro.net> | 2016-02-17 12:59:35 +0100 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2016-02-17 13:20:56 +0100 |
| commit | 7131d1c142dc9c9fc5331ee3ebf90cf9154f85d9 (patch) | |
| tree | 219b3a71a0e0511267e006c3b4b1ae697dbd4d57 /tests/Test | |
| parent | a0f12455c5b042d20773a39f9e85efbb880b65b1 (diff) | |
| download | graphql-7131d1c142dc9c9fc5331ee3ebf90cf9154f85d9.tar.gz | |
Initial support for aliases in `execute`
Diffstat (limited to 'tests/Test')
| -rw-r--r-- | tests/Test/StarWars/QueryTests.hs | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/Test/StarWars/QueryTests.hs b/tests/Test/StarWars/QueryTests.hs index 1f7dc0d..5ffb4b0 100644 --- a/tests/Test/StarWars/QueryTests.hs +++ b/tests/Test/StarWars/QueryTests.hs @@ -165,4 +165,34 @@ test = testGroup "Star Wars Query Tests" -- } -- |] -- $ object ["human" .= Aeson.Null] + , testCase "Luke with alias" . testQuery + [r| query FetchLukeAliased { + luke: human(id: "1000") { + name + } + } + |] + $ object [ + "luke" .= object [ + "name" .= ("Luke Skywalker" :: Text) + ] + ] + , testCase "Luke and Leia aliased" . testQuery + [r| query FetchLukeAndLeiaAliased { + luke: human(id: "1000") { + name + } + leia: human(id: "1003") { + name + } + } + |] + $ object [ + "luke" .= object [ + "name" .= ("Luke Skywalker" :: Text) + ] + , "leia" .= object [ + "name" .= ("Leia Organa" :: Text) + ] + ] ] |