diff options
| -rw-r--r-- | tests/Helpers.hs | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/tests/Helpers.hs b/tests/Helpers.hs index c61207153..a8732fa7a 100644 --- a/tests/Helpers.hs +++ b/tests/Helpers.hs @@ -12,11 +12,11 @@ data Expect = Inline Inline | Blocks [Block] assertPandoc :: Expect -> Pandoc -> Assertion -assertPandoc (Inline e) (Pandoc _ [Para [g]]) = e @=? g +assertPandoc (Inline e) (Pandoc _ [Para [g]]) = e @=? g assertPandoc (Inlines e) (Pandoc _ [Para g] ) = e @=? g -assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g -assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g -assertPandoc _ _ = assertFailure "Wrong structur of Pandoc document." +assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g +assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g +assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document." latexTest :: String-> String -> Expect -> Test latexTest = latexTestWithState defaultParserState @@ -24,14 +24,3 @@ latexTest = latexTestWithState defaultParserState latexTestWithState :: ParserState -> String -> String -> Expect -> Test latexTestWithState state name string exp = testCase name $ exp `assertPandoc` readLaTeX state string -blocks :: [Block] -> Pandoc -blocks bs = Pandoc (Meta { docTitle = [], docAuthors = [], docDate = [] }) bs - -block :: Block -> Pandoc -block b = blocks [b] - -inlines :: [Inline] -> Pandoc -inlines is = block $ Para is - -inline :: Inline -> Pandoc -inline i = inlines [i] |