From d690d22ce89891e990ec275ea9dc196d17decb44 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 27 Jul 2019 07:19:21 +0200
Subject: Test the encoder with the unminified document

---
 tests/Test/KitchenSinkSpec.hs       | 8 +++++---
 tests/data/kitchen-sink.min.graphql | 8 +++++++-
 2 files changed, 12 insertions(+), 4 deletions(-)

(limited to 'tests')

diff --git a/tests/Test/KitchenSinkSpec.hs b/tests/Test/KitchenSinkSpec.hs
index 99a00f7..f9f9395 100644
--- a/tests/Test/KitchenSinkSpec.hs
+++ b/tests/Test/KitchenSinkSpec.hs
@@ -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
diff --git a/tests/data/kitchen-sink.min.graphql b/tests/data/kitchen-sink.min.graphql
index 4f8553d..c39e6ba 100644
--- a/tests/data/kitchen-sink.min.graphql
+++ b/tests/data/kitchen-sink.min.graphql
@@ -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}
-- 
cgit v1.2.3