Add RTF reader.

- `rtf` is now supported as an input format as well as output.
- New module Text.Pandoc.Readers.RTF (exporting `readRTF`). [API change]

Closes #3982.

2 files changed, 49 insertions, 1 deletions

diff --git a/test/Tests/Readers/FB2.hs b/test/Tests/Readers/FB2.hs
index 42054a235..d540f8b6a 100644
--- a/test/Tests/Readers/FB2.hs
+++ b/test/Tests/Readers/FB2.hs
@@ -7,7 +7,7 @@
    Stability   : alpha
    Portability : portable
 
-Tests for the EPUB mediabag.
+Tests for the FB2 reader.
 -}
 module Tests.Readers.FB2 (tests) where
 
diff --git a/test/Tests/Readers/RTF.hs b/test/Tests/Readers/RTF.hs
new file mode 100644
index 000000000..2a741bba8
--- /dev/null
+++ b/test/Tests/Readers/RTF.hs
@@ -0,0 +1,48 @@
+{- |
+   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 Test.Tasty.Golden (goldenVsString)
+import qualified Data.ByteString as BS
+import Text.Pandoc
+import Text.Pandoc.UTF8 (toText, fromStringLazy)
+import Data.Text (Text, unpack)
+import System.FilePath (replaceExtension, (</>), (<.>))
+
+rtfToNative :: Text -> Text
+rtfToNative =
+  purely (writeNative def{ writerTemplate = Just mempty }) .
+    purely (readRTF def)
+
+rtfTest :: TestName -> TestTree
+rtfTest name = goldenVsString name native
+  (fromStringLazy . filter (/='\r') . unpack . rtfToNative . toText
+    <$> BS.readFile path)
+  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"
+                    ]
+