diff options
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 |