Merge branch 'tests'

1 files changed, 34 insertions, 0 deletions

diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs
new file mode 100644
index 000000000..539b26dcd
--- /dev/null
+++ b/tests/Tests/Helpers.hs
@@ -0,0 +1,34 @@
+-- Utility functions for the test suite.
+
+module Tests.Helpers where
+
+import Text.Pandoc
+
+import Test.Framework
+import Test.Framework.Providers.HUnit
+import Test.HUnit hiding (Test)
+
+data Expect = Inline  Inline
+            | Inlines [Inline]
+            | Block   Block
+            | Blocks  [Block]
+
+assertPandoc :: Expect -> Pandoc -> Assertion
+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 structure of Pandoc document."
+
+latexTest :: String -> String -> Expect -> Test
+latexTest = readerTestWithState defaultParserState readLaTeX
+
+readerTestWithState :: ParserState
+                     -> (ParserState -> String -> Pandoc)
+                     -> String
+                     -> String
+                     -> Expect
+                     -> Test
+readerTestWithState state reader name string e =
+  testCase name $ e `assertPandoc` reader state string 
+