1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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"
]
|
