content: {- |
     Module      : Tests.Readers.RTF
     Copyright   : © 2021-2024 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"
                      ]
  