diff options
| author | Danny Navarro <j@dannynavarro.net> | 2017-02-26 16:07:00 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2017-02-28 16:07:00 -0300 |
| commit | 1b8fca3658215c69402e2bc0f0c46d28e46d70e2 (patch) | |
| tree | e3d2c3760c6ec720c3a1a60b3ca7cacc74f2e331 /tests/tasty.hs | |
| parent | 642eab312f7b18619ff24e07a8863591f13ba07f (diff) | |
| parent | bada28ce24dcd0fcae95ebd7dd9a9ebb106e3842 (diff) | |
| download | graphql-1b8fca3658215c69402e2bc0f0c46d28e46d70e2.tar.gz | |
Merge branch 'core'
This introduces a distinction between a Full and a Core AST. Fragments and
variables are replaced when transforming from Full to Core.
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 |