diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/golden.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/golden.hs b/tests/golden.hs index e7ab70f..2323a97 100644 --- a/tests/golden.hs +++ b/tests/golden.hs @@ -8,14 +8,14 @@ import qualified Data.Text.IO as TIO import Test.Tasty (defaultMain) import Test.Tasty.Golden (goldenVsString) +import Paths_graphql (getDataFileName) import Data.GraphQL.Parser (document) main :: IO () main = defaultMain - $ goldenVsString "kitchen-sink.graphql" - "./tests/data/kitchen-sink.graphql.golden" - (parse "./tests/data/kitchen-sink.graphql") + =<< goldenVsString "kitchen-sink.graphql" + <$> getDataFileName "tests/data/kitchen-sink.graphql.graphql.golden" + <*> (parse <$> getDataFileName "tests/data/kitchen-sink.graphql") where parse = fmap (parseOnly document) . TIO.readFile >=> pure . either B8.pack (flip B8.snoc '\n' . B8.pack . show) - |