1 files changed, 42 insertions, 0 deletions
diff --git a/test/Tests/Readers/RTF.hs b/test/Tests/Readers/RTF.hs
new file mode 100644
index 000000000..1b335274b
--- /dev/null
+++ b/test/Tests/Readers/RTF.hs
@@ -0,0 +1,42 @@
+{- |
+   Module      : Tests.Readers.RTF
+   Copyright   : © 2021 John MacFarlane
+   License     : GNU GPL, version 2 or above
+
+   Maintainer  : jgm@berkeley.edu
+   Stability   : alpha
+   Portability : portable
+
+Tests for the RTF reader.
+-}
+module Tests.Readers.RTF (tests) where
+
+import Test.Tasty
+import Tests.Helpers
+import Text.Pandoc
+import System.FilePath (replaceExtension, (</>), (<.>))
+
+rtfTest :: TestName -> TestTree
+rtfTest name = testGolden name native path
+   (\t -> runIOorExplode
+            (readRTF def t >>=
+              writeNative def{ writerTemplate = Just mempty }))
+  where native = replaceExtension path ".native"
+        path = "rtf" </> name <.> "rtf"
+
+
+tests :: [TestTree]
+tests = map rtfTest [ "footnote"
+                    , "accent"
+                    , "unicode"
+                    , "image"
+                    , "link"
+                    , "heading"
+                    , "formatting"
+                    , "list_simple"
+                    , "list_complex"
+                    , "bookmark"
+                    , "table_simple"
+                    , "table_error_codes"
+                    ]
+