diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-01-28 14:15:14 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-01-28 14:15:14 -0300 |
| commit | 5390c4ca1e7e6bcf36dbe5e773c1355dd4b65939 (patch) | |
| tree | dfe1dcc13bacd0a52dd376504bf9caa574631d04 /tests/tasty.hs | |
| parent | 3e991adf4eaeac4da4d074992a507d651b81733f (diff) | |
| download | graphql-5390c4ca1e7e6bcf36dbe5e773c1355dd4b65939.tar.gz | |
Split AST in 2
One AST is meant to be a target parser and tries to adhere as much as possible
to the spec. The other is a simplified version of that AST meant for execution.
Also newtypes have been replaced by type synonyms and NonEmpty lists are being
used where it makes sense.
Diffstat (limited to 'tests/tasty.hs')
| -rw-r--r-- | tests/tasty.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tasty.hs b/tests/tasty.hs index fa9bedf..aa8da50 100644 --- a/tests/tasty.hs +++ b/tests/tasty.hs @@ -18,10 +18,10 @@ import qualified Test.StarWars.QueryTests as SW import Paths_graphql (getDataFileName) main :: IO () -main = defaultMain . testGroup "Tests" . (: [SW.test]) =<< ksTest +main = defaultMain . testGroup "Tests" . (: [SW.test]) =<< kitchenTest -ksTest :: IO TestTree -ksTest = testCase "Kitchen Sink" +kitchenTest :: IO TestTree +kitchenTest = testCase "Kitchen Sink" <$> (assertEqual "Encode" <$> expected <*> actual) where expected = Text.readFile |