PowerPoint writer: add test for speaker notes after metadata.

2026-08-25 09:47:06 +00:00 · 2019-03-31 17:09:00 -04:00
parent f72a67efdd
commit 0d1fc7dfff
4 changed files with 9 additions and 0 deletions
@@ -95,6 +95,10 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
                         def
                         "pptx/speaker_notes_afterheader.native"
                         "pptx/speaker_notes_afterheader.pptx"
+                       , pptxTests "speaker notes after metadata"
+                         def
+                         "pptx/speaker_notes_after_metadata.native"
+                         "pptx/speaker_notes_after_metadata.pptx"
                       , pptxTests "remove empty slides"
                         def
                         "pptx/remove_empty_slides.native"
@@ -0,0 +1,5 @@
+Pandoc (Meta {unMeta = fromList [("author",MetaInlines [Str "Jesse",Space,Str "Rosenthal"]),("title",MetaInlines [Str "Testing"])]})
+[Div ("",["notes"],[])
+ [Para [Str "Some",Space,Str "speaker",Space,Str "notes"]]
+,Header 1 ("a-header",[],[]) [Str "A",Space,Str "header"]
+,Para [Str "And",Space,Str "a",Space,Str "new",Space,Str "slide."]]