diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-03-01 22:04:13 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-03-01 17:04:13 -0300 |
| commit | 285ccb0af954059879b12e33754fd10ccbed646d (patch) | |
| tree | 14fa3e0e93b915232347f4efe9cd7eac6869553c /tests/Test/StarWars/QueryTests.hs | |
| parent | 6a10e28ba85d593184f6a1885bbab2347466ea0e (diff) | |
| download | graphql-285ccb0af954059879b12e33754fd10ccbed646d.tar.gz | |
Implement type instrospection tests
The main intention with this commit is to show a poor's man way to support type
instrospection.
Diffstat (limited to 'tests/Test/StarWars/QueryTests.hs')
| -rw-r--r-- | tests/Test/StarWars/QueryTests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Test/StarWars/QueryTests.hs b/tests/Test/StarWars/QueryTests.hs index 0456f6b..c47b38a 100644 --- a/tests/Test/StarWars/QueryTests.hs +++ b/tests/Test/StarWars/QueryTests.hs @@ -250,7 +250,7 @@ test = testGroup "Star Wars Query Tests" } |] $ object ["data" .= object [ - "hero" .= ["__typename" .= ("Droid" :: Text), r2d2Name] + "hero" .= object ["__typename" .= ("Droid" :: Text), r2d2Name] ]] , testCase "Luke is a human" . testQuery [r| query CheckTypeOfLuke { @@ -261,7 +261,7 @@ test = testGroup "Star Wars Query Tests" } |] $ object ["data" .= object [ - "hero" .= ["__typename" .= ("Human" :: Text), lukeName] + "hero" .= object ["__typename" .= ("Human" :: Text), lukeName] ]] ] , testGroup "Errors in resolvers" @@ -293,7 +293,7 @@ test = testGroup "Star Wars Query Tests" |] $ object ["data" .= object [ "hero" .= [r2d2Name, "friends" .= [ - object [lukeName, secretBackstory] + object [lukeName, secretBackstory] , object [hanName, secretBackstory] , object [leiaName, secretBackstory] ]] |