Add kitchen sink parse/encode unit test

This also includes the fixes to make it work. Golden tests have been
removed.

1 files changed, 23 insertions, 0 deletions

diff --git a/tests/tasty.hs b/tests/tasty.hs
new file mode 100644
index 0000000..64786e6
--- /dev/null
+++ b/tests/tasty.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import Data.Attoparsec.Text (parseOnly)
+import qualified Data.Text.IO as Text
+import Test.Tasty (defaultMain)
+import Test.Tasty.HUnit
+
+import qualified Data.GraphQL.Parser as Parser
+import qualified Data.GraphQL.Printer as Printer
+
+import Paths_graphql (getDataFileName)
+
+main :: IO ()
+main = defaultMain =<< testCase "Kitchen Sink"
+                   <$> (assertEqual "Encode" <$> expected <*> actual)
+  where
+    expected = Text.readFile
+           =<< getDataFileName "tests/data/kitchen-sink.min.graphql"
+
+    actual = either (error "Parsing error!") Printer.document
+         <$> parseOnly Parser.document
+         <$> expected