Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Generalized latexTestWithState to readerTestWithState.

Browse source
This commit is contained in:
Nathan Gass 2011-01-12 19:32:26 +01:00
parent daf5444e24
commit 2dadb67b25
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/Tests/Shared.hs
View file

@ -19,8 +19,8 @@ assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
latexTest :: String-> String -> Expect -> Test
latexTest = latexTestWithState defaultParserState
latexTest = readerTestWithState defaultParserState readLaTeX
latexTestWithState :: ParserState -> String -> String -> Expect -> Test
latexTestWithState state name string exp = testCase name $ exp `assertPandoc` readLaTeX state string
readerTestWithState :: ParserState -> (ParserState -> String -> Pandoc) -> String -> String -> Expect -> Test
readerTestWithState state reader name string exp = testCase name $ exp `assertPandoc` reader state string