From 145c3f54f989c3c1217b2706655e20e7af137c70 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Mon, 22 Jan 2018 11:52:03 -0500 Subject: 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) --- test/Tests/Writers/Powerpoint.hs | 15 +++++++++++++++ test/pptx/endnotes.native | 2 ++ test/pptx/endnotes.pptx | Bin 0 -> 26419 bytes test/pptx/endnotes_toc.pptx | Bin 0 -> 27344 bytes test/pptx/slide_breaks_toc.pptx | Bin 0 -> 28988 bytes 5 files changed, 17 insertions(+) create mode 100644 test/pptx/endnotes.native create mode 100644 test/pptx/endnotes.pptx create mode 100644 test/pptx/endnotes_toc.pptx create mode 100644 test/pptx/slide_breaks_toc.pptx (limited to 'test') 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 Binary files /dev/null and b/test/pptx/endnotes.pptx differ diff --git a/test/pptx/endnotes_toc.pptx b/test/pptx/endnotes_toc.pptx new file mode 100644 index 000000000..bdbb5716c Binary files /dev/null and b/test/pptx/endnotes_toc.pptx differ diff --git a/test/pptx/slide_breaks_toc.pptx b/test/pptx/slide_breaks_toc.pptx new file mode 100644 index 000000000..bef085608 Binary files /dev/null and b/test/pptx/slide_breaks_toc.pptx differ -- cgit v1.2.3