diff options
| author | Eugen Wissner <belka@caraus.de> | 2019-07-10 05:57:35 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2019-07-10 05:57:35 +0200 |
| commit | eb40810f25a2ab29e24c64f1e3c82b3b590460c8 (patch) | |
| tree | 7baaf32a12cf69f864f69718e20357534a71bf5f /tests/tasty.hs | |
| parent | 61879fb12437302d6b14e0e0297e3a8742d91f8b (diff) | |
| download | graphql-eb40810f25a2ab29e24c64f1e3c82b3b590460c8.tar.gz | |
Replace tasty and HUnit with Hspec
Diffstat (limited to 'tests/tasty.hs')
| -rw-r--r-- | tests/tasty.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/tasty.hs b/tests/tasty.hs deleted file mode 100644 index dd7e356..0000000 --- a/tests/tasty.hs +++ /dev/null @@ -1,36 +0,0 @@ -module Main where - -import qualified Data.Text.IO as T.IO -import qualified Language.GraphQL.Encoder as Encoder -import qualified Language.GraphQL.LexerTest as LexerTest -import qualified Language.GraphQL.Parser as Parser -import Text.Megaparsec ( errorBundlePretty - , parse - ) -import Test.Tasty ( TestTree - , defaultMain - , testGroup - ) -import Test.Tasty.HUnit ( assertEqual - , assertFailure - , testCase - ) -import Paths_graphql (getDataFileName) -import qualified Test.StarWars.QueryTests as SW - -main :: IO () -main = defaultMain $ testGroup "Tests" - [ testGroup "Reference tests" [LexerTest.reference, SW.test] - , testGroup "Implementation tests" [LexerTest.implementation] - , kitchenTest - ] - -kitchenTest :: TestTree -kitchenTest = testCase "Kitchen Sink" $ do - dataFileName <- getDataFileName "tests/data/kitchen-sink.min.graphql" - expected <- T.IO.readFile dataFileName - - either - (assertFailure . errorBundlePretty) - (assertEqual "Encode" expected . Encoder.document) - $ parse Parser.document dataFileName expected |