diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-27 09:09:45 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-27 09:12:17 -0500 |
| commit | cdbe45e8ee1c5b87516ad020584576a22fdb28f4 (patch) | |
| tree | c0f3d4f139b7017c5a8e82b7ffc28684f68ac3f8 /test | |
| parent | ab1bee58e54be2f9bcafa56068a35dce292b6b00 (diff) | |
| download | pandoc-cdbe45e8ee1c5b87516ad020584576a22fdb28f4.tar.gz | |
Powerpoint writer: Remove empty slides
Make sure there are no empty slides in the pptx output. Because of the
way that slides were split, these could be accidentally produced by
comments after images.
When animations are added, there will be a way to add an empty slide
with either incremental lists or pauses.
Test outputs checked with MS PowerPoint (Office 2013, Windows 10,
VBox). Both files have expected output and are not corrupted.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 4 | ||||
| -rw-r--r-- | test/pptx/remove_empty_slides.native | 5 | ||||
| -rw-r--r-- | test/pptx/remove_empty_slides.pptx | bin | 0 -> 43784 bytes | |||
| -rw-r--r-- | test/pptx/remove_empty_slides_templated.pptx | bin | 0 -> 411101 bytes |
4 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index fc5f9accc..bca39c24f 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -77,4 +77,8 @@ tests = groupPptxTests [ pptxTests "Inline formatting" def "pptx/speaker_notes.native" "pptx/speaker_notes.pptx" + , pptxTests "remove empty slides" + def + "pptx/remove_empty_slides.native" + "pptx/remove_empty_slides.pptx" ] diff --git a/test/pptx/remove_empty_slides.native b/test/pptx/remove_empty_slides.native new file mode 100644 index 000000000..51c042281 --- /dev/null +++ b/test/pptx/remove_empty_slides.native @@ -0,0 +1,5 @@ +[Para [Str "Content"] +,Para [Image ("",[],[]) [] ("lalune.jpg",""),Space,RawInline (Format "html") "<!-- -->"] +,HorizontalRule +,HorizontalRule +,Para [Str "More",Space,Str "content"]] diff --git a/test/pptx/remove_empty_slides.pptx b/test/pptx/remove_empty_slides.pptx Binary files differnew file mode 100644 index 000000000..3b4843aa6 --- /dev/null +++ b/test/pptx/remove_empty_slides.pptx diff --git a/test/pptx/remove_empty_slides_templated.pptx b/test/pptx/remove_empty_slides_templated.pptx Binary files differnew file mode 100644 index 000000000..1efe33212 --- /dev/null +++ b/test/pptx/remove_empty_slides_templated.pptx |