@@ -12,11 +12,11 @@ data Expect = Inline Inline
1212 | Blocks [Block]
1313
1414assertPandoc :: Expect -> Pandoc -> Assertion
15−assertPandoc (Inline e) (Pandoc _ [Para [g]]) = e @=? g
15+assertPandoc (Inline e) (Pandoc _ [Para [g]]) = e @=? g
1616assertPandoc (Inlines e) (Pandoc _ [Para g] ) = e @=? g
17−assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g
18−assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
19−assertPandoc _ _ = assertFailure "Wrong structur of Pandoc document."
17+assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g
18+assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
19+assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
2020
2121latexTest :: String-> String -> Expect -> Test
2222latexTest = latexTestWithState defaultParserState
@@ -24,14 +24,3 @@ latexTest = latexTestWithState defaultParserState
2424latexTestWithState :: ParserState -> String -> String -> Expect -> Test
2525latexTestWithState state name string exp = testCase name $ exp `assertPandoc` readLaTeX state string
2626
27−blocks :: [Block] -> Pandoc
28−blocks bs = Pandoc (Meta { docTitle = [], docAuthors = [], docDate = [] }) bs
29−
30−block :: Block -> Pandoc
31−block b = blocks [b]
32−
33−inlines :: [Inline] -> Pandoc
34−inlines is = block $ Para is
35−
36−inline :: Inline -> Pandoc
37−inline i = inlines [i]