git.iko.soy/typeable/pandoc
on master help sign in
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)

commit145c3f54f989c3c1217b2706655e20e7af137c70 authorJesse Rosenthal <jrosenthal@jhu.edu> dateMon 22 Jan 2018, 11:52 (9 years ago) parent5cdac26
5 files changed+17
compare with master
unifiedsplit
test/Tests/Writers/Powerpoint.hs+15 test/pptx/endnotes.native+2 test/pptx/endnotes.pptx test/pptx/endnotes_toc.pptx test/pptx/slide_breaks_toc.pptx
test/Tests/Writers/Powerpoint.hs+15
@@ -198,4 +198,19 @@ tests = [ pptxTest
198198 def{ writerSlideLevel = Just 1 }
199199 "pptx/slide_breaks.native"
200200 "pptx/slide_breaks_slide_level_1.pptx"
201+ , pptxTest
202+ "table of contents"
203+ def{ writerTableOfContents = True }
204+ "pptx/slide_breaks.native"
205+ "pptx/slide_breaks_toc.pptx"
206+ , pptxTest
207+ "end notes"
208+ def
209+ "pptx/endnotes.native"
210+ "pptx/endnotes.pptx"
211+ , pptxTest
212+ "end notes, with table of contents"
213+ def { writerTableOfContents = True }
214+ "pptx/endnotes.native"
215+ "pptx/endnotes_toc.pptx"
201216 ]
test/pptx/endnotes.nativenew file+2
@@ -0,0 +1,2 @@
1+Pandoc (Meta {unMeta = fromList []})
2+[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."]]]]
test/pptx/endnotes.pptxnew file

Binary file not shown.

test/pptx/endnotes_toc.pptxnew file

Binary file not shown.

test/pptx/slide_breaks_toc.pptxnew file

Binary file not shown.