diff options
Diffstat (limited to 'tests/Test/KitchenSinkSpec.hs')
| -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 |