graphql-0.2: tests/golden.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Control.Monad ((>=>))
import Data.Attoparsec.Text (parseOnly)
import Data.ByteString.Lazy.Char8 as B8
import qualified Data.Text.IO as TIO
import Test.Tasty (defaultMain)
import Test.Tasty.Golden (goldenVsString)

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")
  where
    parse = fmap (parseOnly document) . TIO.readFile
        >=> pure . either B8.pack (flip B8.snoc '\n' . B8.pack . show)