Powerpoint writer: Add further tests

Tests added for:

 - table of contents
 - endnotes
 - endnotes with table of contents

Powerpoint output checked in MS PowerPoint 2013 (Windows)

5 files changed, 17 insertions, 0 deletions

diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs
index a90d6193e..f78916dac 100644
--- a/test/Tests/Writers/Powerpoint.hs
+++ b/test/Tests/Writers/Powerpoint.hs
@@ -198,4 +198,19 @@ tests = [ pptxTest
           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"
         ]
diff --git a/test/pptx/endnotes.native b/test/pptx/endnotes.native
new file mode 100644
index 000000000..f6caeb62f
--- /dev/null
+++ b/test/pptx/endnotes.native
@@ -0,0 +1,2 @@
+Pandoc (Meta {unMeta = fromList []})
+[Para [Str "Here",Space,Str "is",Space,Str "one",Space,Str "note.",Note [Para [Str "Here",Space,Str "is",Space,Str "the",Space,Str "note."]],Space,Str "And",Space,Str "one",Space,Str "more",Space,Str "note.",Note [Para [Str "And",Space,Str "another",Space,Str "note."]]]]
diff --git a/test/pptx/endnotes.pptx b/test/pptx/endnotes.pptx
new file mode 100644
index 000000000..b16f6db5f
--- /dev/null
+++ b/test/pptx/endnotes.pptx
diff --git a/test/pptx/endnotes_toc.pptx b/test/pptx/endnotes_toc.pptx
new file mode 100644
index 000000000..bdbb5716c
--- /dev/null
+++ b/test/pptx/endnotes_toc.pptx
diff --git a/test/pptx/slide_breaks_toc.pptx b/test/pptx/slide_breaks_toc.pptx
new file mode 100644
index 000000000..bef085608
--- /dev/null
+++ b/test/pptx/slide_breaks_toc.pptx