aboutsummaryrefslogtreecommitdiff
path: root/tests/tasty.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tasty.hs')
-rw-r--r--tests/tasty.hs28
1 files changed, 0 insertions, 28 deletions
diff --git a/tests/tasty.hs b/tests/tasty.hs
deleted file mode 100644
index a034a79..0000000
--- a/tests/tasty.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedStrings #-}
-module Main where
-
-#if !MIN_VERSION_base(4,8,0)
-import Control.Applicative ((<$>), (<*>))
-#endif
-
-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.Encoder as Encoder
-
-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!") Encoder.document
- <$> parseOnly Parser.document
- <$> expected