mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-01 15:38:09 +08:00
Alex
46 lines
1.3 KiB
Haskell
46 lines
1.3 KiB
Haskell
{- |
|
|
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"
|
|
, "list_multiparagraph"
|
|
, "list_legacy"
|
|
, "bookmark"
|
|
, "table_simple"
|
|
, "table_error_codes"
|
|
, "table_nested"
|
|
, "table_nested_malformed_itap"
|
|
]
|