summaryrefslogtreecommitdiff
path: root/test/Tests/Writers
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-02-27 09:09:45 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-02-27 09:12:17 -0500
commitcdbe45e8ee1c5b87516ad020584576a22fdb28f4 (patch)
treec0f3d4f139b7017c5a8e82b7ffc28684f68ac3f8 /test/Tests/Writers
parentab1bee58e54be2f9bcafa56068a35dce292b6b00 (diff)
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/Tests/Writers')
-rw-r--r--test/Tests/Writers/Powerpoint.hs4
1 files changed, 4 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"
]