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]