From d690d22ce89891e990ec275ea9dc196d17decb44 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sat, 27 Jul 2019 07:19:21 +0200 Subject: Test the encoder with the unminified document --- tests/Test/KitchenSinkSpec.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'tests/Test/KitchenSinkSpec.hs') 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 -- cgit v1.2.3