diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-07-27 07:19:21 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-07-27 07:31:09 +0200 |
| commit | d690d22ce89891e990ec275ea9dc196d17decb44 (patch) | |
| tree | 5ed35a334a86ec6b8ac9dbab503599afe58986be /tests/Test | |
| parent | 15568a3b99429dc2afb22aa9283c8247fee18484 (diff) | |
| download | graphql-d690d22ce89891e990ec275ea9dc196d17decb44.tar.gz | |
Test the encoder with the unminified document
Diffstat (limited to 'tests/Test')
| -rw-r--r-- | tests/Test/KitchenSinkSpec.hs | 8 |
1 files changed, 5 insertions, 3 deletions
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 |