diff options
| author | Danny Navarro <j@dannynavarro.net> | 2016-12-18 12:19:59 -0300 |
|---|---|---|
| committer | Danny Navarro <j@dannynavarro.net> | 2016-12-18 12:19:59 -0300 |
| commit | 933cfd2852d4f4321c03564a9cc351e3508ba73c (patch) | |
| tree | ec4610b87215de139f673993ed34b60604c04cf4 /tests/tasty.hs | |
| parent | aa66236081bff41ff7cea6cceac8d19095020763 (diff) | |
| download | graphql-933cfd2852d4f4321c03564a9cc351e3508ba73c.tar.gz | |
Tokenize number parser
The essential change hidden behind the code golfing is using the `tok`
combinator. This was making fail the Kitchen Sink test.
Diffstat (limited to 'tests/tasty.hs')
| -rw-r--r-- | tests/tasty.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/tasty.hs b/tests/tasty.hs index 791bfbb..fa9bedf 100644 --- a/tests/tasty.hs +++ b/tests/tasty.hs @@ -22,7 +22,7 @@ main = defaultMain . testGroup "Tests" . (: [SW.test]) =<< ksTest ksTest :: IO TestTree ksTest = testCase "Kitchen Sink" - <$> (assertEqual "Encode" <$> expected <*> actual) + <$> (assertEqual "Encode" <$> expected <*> actual) where expected = Text.readFile =<< getDataFileName "tests/data/kitchen-sink.min.graphql" @@ -30,4 +30,3 @@ ksTest = testCase "Kitchen Sink" actual = either (error "Parsing error!") Encoder.document . parseOnly Parser.document <$> expected - |