Pptx writer: test for speaker notes after breaking header.

2026-08-26 10:16:32 +00:00 · 2019-03-30 22:52:31 -04:00
parent dda5f0a572
commit efa6304eee
4 changed files with 7 additions and 0 deletions
@@ -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"
@@ -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"]]]