42 lines
1.1 KiB
Haskell
42 lines
1.1 KiB
Haskell
{- |
|
|
Module : Tests.Readers.RTF
|
|
Copyright : © 2021-2022 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"
|
|
]
|
|
|