diff options
-rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 4 | ||||
-rw-r--r-- | test/pptx/speaker_notes_afterheader.native | 3 | ||||
-rw-r--r-- | test/pptx/speaker_notes_afterheader.pptx | bin | 0 -> 30692 bytes | |||
-rw-r--r-- | test/pptx/speaker_notes_afterheader_templated.pptx | bin | 0 -> 398010 bytes |
4 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index 9c5409310..d12f93838 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -91,6 +91,10 @@ tests = groupPptxTests [ pptxTests "Inline formatting" def "pptx/speaker_notes_afterseps.native" "pptx/speaker_notes_afterseps.pptx" + , pptxTests "speaker notes after a separating header" + def + "pptx/speaker_notes_afterheader.native" + "pptx/speaker_notes_afterheader.pptx" , pptxTests "remove empty slides" def "pptx/remove_empty_slides.native" diff --git a/test/pptx/speaker_notes_afterheader.native b/test/pptx/speaker_notes_afterheader.native new file mode 100644 index 000000000..0f7dd95d7 --- /dev/null +++ b/test/pptx/speaker_notes_afterheader.native @@ -0,0 +1,3 @@ +[Header 1 ("here-is-a-single-header",[],[]) [Str "Here",Space,Str "is",Space,Str "a",Space,Str "single",Space,Str "header"] +,Div ("",["notes"],[]) + [Para [Str "and",Space,Str "here",Space,Str "are",Space,Str "some",Space,Str "notes"]]] diff --git a/test/pptx/speaker_notes_afterheader.pptx b/test/pptx/speaker_notes_afterheader.pptx Binary files differnew file mode 100644 index 000000000..8e99aa69b --- /dev/null +++ b/test/pptx/speaker_notes_afterheader.pptx diff --git a/test/pptx/speaker_notes_afterheader_templated.pptx b/test/pptx/speaker_notes_afterheader_templated.pptx Binary files differnew file mode 100644 index 000000000..0d1605154 --- /dev/null +++ b/test/pptx/speaker_notes_afterheader_templated.pptx |