From 4e5dc3433a53c2e0404fd2adb9fb33c898d1afa6 Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Mon, 19 Oct 2015 12:19:39 +0200 Subject: Implement first StarWars end-to-end test `execute` still needs to be implemented. --- tests/tasty.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'tests/tasty.hs') diff --git a/tests/tasty.hs b/tests/tasty.hs index a034a79..1dd9466 100644 --- a/tests/tasty.hs +++ b/tests/tasty.hs @@ -8,16 +8,20 @@ import Control.Applicative ((<$>), (<*>)) import Data.Attoparsec.Text (parseOnly) import qualified Data.Text.IO as Text -import Test.Tasty (defaultMain) +import Test.Tasty (TestTree, defaultMain, testGroup) import Test.Tasty.HUnit import qualified Data.GraphQL.Parser as Parser import qualified Data.GraphQL.Encoder as Encoder +import qualified Test.StarWars as SW import Paths_graphql (getDataFileName) main :: IO () -main = defaultMain =<< testCase "Kitchen Sink" +main = defaultMain . testGroup "Tests" . (: [SW.test]) =<< ksTest + +ksTest :: IO TestTree +ksTest = testCase "Kitchen Sink" <$> (assertEqual "Encode" <$> expected <*> actual) where expected = Text.readFile @@ -26,3 +30,4 @@ main = defaultMain =<< testCase "Kitchen Sink" actual = either (error "Parsing error!") Encoder.document <$> parseOnly Parser.document <$> expected + -- cgit v1.2.3