blob: 621b4fe2fd9b626c8f7b79ed19ec1b239ba702c8 (
plain)
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
49
50
51
52
53
54
55
56
|
module Tests.Writers.Powerpoint (tests) where
import Tests.Writers.OOXML (ooxmlTest)
import Text.Pandoc
import Test.Tasty
pptxTest :: String -> WriterOptions -> FilePath -> FilePath -> TestTree
pptxTest = ooxmlTest writePowerpoint
tests :: [TestTree]
tests = [ pptxTest
"Inline formatting"
def
"pptx/inline_formatting.native"
"pptx/inline_formatting.pptx"
, pptxTest
"Slide breaks (default slide-level)"
def
"pptx/slide_breaks.native"
"pptx/slide_breaks.pptx"
, pptxTest
"slide breaks (slide-level set to 1)"
def{ writerSlideLevel = Just 1 }
"pptx/slide_breaks.native"
"pptx/slide_breaks_slide_level_1.pptx"
, pptxTest
"table of contents"
def{ writerTableOfContents = True }
"pptx/slide_breaks.native"
"pptx/slide_breaks_toc.pptx"
, pptxTest
"end notes"
def
"pptx/endnotes.native"
"pptx/endnotes.pptx"
, pptxTest
"end notes, with table of contents"
def { writerTableOfContents = True }
"pptx/endnotes.native"
"pptx/endnotes_toc.pptx"
, pptxTest
"images"
def
"pptx/images.native"
"pptx/images.pptx"
, pptxTest
"two-column layout"
def
"pptx/two_column.native"
"pptx/two_column.pptx"
, pptxTest
"speaker notes"
def
"pptx/speaker_notes.native"
"pptx/speaker_notes.pptx"
]
|
