@@ -20,9 +20,15 @@ assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g
20assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
20assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
21assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
21assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
23−latexTest :: String-> String -> Expect -> Test
23+latexTest :: String -> String -> Expect -> Test
24latexTest = readerTestWithState defaultParserState readLaTeX
24latexTest = readerTestWithState defaultParserState readLaTeX
26−readerTestWithState :: ParserState -> (ParserState -> String -> Pandoc) -> String -> String -> Expect -> Test
26+readerTestWithState :: ParserState
27+ -> (ParserState -> String -> Pandoc)
32+readerTestWithState state reader name string e =
27−readerTestWithState state reader name string exp = testCase name $ exp `assertPandoc` reader state string
33+ testCase name $ e `assertPandoc` reader state string