aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers/Powerpoint.hs
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"
        ]