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