OSS/graphql
1
1
Fork 1
Code Issues 4 Pull Requests Actions Releases 22 Wiki Activity

Test the encoder with the unminified document

Browse Source
This commit is contained in:
Eugen Wissner
2019-07-27 07:19:21 +02:00
parent 15568a3b99
commit d690d22ce8
4 changed files with 37 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tests/Test/KitchenSinkSpec.hs
View File

@ -20,10 +20,12 @@ import Text.Megaparsec ( errorBundlePretty
spec :: Spec
spec = describe "Kitchen Sink" $
it "prints the query" $ do
dataFileName <- getDataFileName "tests/data/kitchen-sink.min.graphql"
expected <- Text.IO.readFile dataFileName
dataFileName <- getDataFileName "tests/data/kitchen-sink.graphql"
minFileName <- getDataFileName "tests/data/kitchen-sink.min.graphql"
actual <- Text.IO.readFile dataFileName
expected <- Text.IO.readFile minFileName
either
(expectationFailure . errorBundlePretty)
(flip shouldBe expected . Encoder.document)
$ parse Parser.document dataFileName expected
$ parse Parser.document dataFileName actual

8
tests/data/kitchen-sink.min.graphql
View File

@ -1 +1,7 @@
query queryName($foo:ComplexType,$site:Site=MOBILE){whoever123is:node(id:[123,456]){id,... on User@defer{field2{id,alias:field1(first:10,after:$foo)@include(if:$foo){id,...frag}}}}}mutation likeStory{like(story:123)@defer{story{id}}}fragment frag on Friend{foo(size:$size,bar:$b,obj:{key:"value"})}
query queryName($foo:ComplexType,$site:Site=MOBILE){whoever123is:node(id:[123,456]){id,... on User@defer{field2{id,alias:field1(first:10,after:$foo)@include(if:$foo){id,...frag}}}}}
mutation likeStory{like(story:123)@defer{story{id}}}
fragment frag on Friend{foo(size:$size,bar:$b,obj:{key:"value"})}
{unnamed(truthy:true,falsey:false),query}