diff options
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 4 | ||||
| -rw-r--r-- | test/pptx/speaker_notes_after_metadata.native | 5 | ||||
| -rw-r--r-- | test/pptx/speaker_notes_after_metadata.pptx | bin | 0 -> 31676 bytes | |||
| -rw-r--r-- | test/pptx/speaker_notes_after_metadata_templated.pptx | bin | 0 -> 398986 bytes |
4 files changed, 9 insertions, 0 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index d12f93838..eb4b584e5 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -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" diff --git a/test/pptx/speaker_notes_after_metadata.native b/test/pptx/speaker_notes_after_metadata.native new file mode 100644 index 000000000..6fda4b1ab --- /dev/null +++ b/test/pptx/speaker_notes_after_metadata.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."]] diff --git a/test/pptx/speaker_notes_after_metadata.pptx b/test/pptx/speaker_notes_after_metadata.pptx Binary files differnew file mode 100644 index 000000000..f25d9593f --- /dev/null +++ b/test/pptx/speaker_notes_after_metadata.pptx diff --git a/test/pptx/speaker_notes_after_metadata_templated.pptx b/test/pptx/speaker_notes_after_metadata_templated.pptx Binary files differnew file mode 100644 index 000000000..d108cbcbc --- /dev/null +++ b/test/pptx/speaker_notes_after_metadata_templated.pptx |