diff options
Diffstat (limited to 'test/Tests/Readers/RTF.hs')
-rw-r--r-- | test/Tests/Readers/RTF.hs | 42 |
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" + ] + |