From 0d1fc7dfffd8044e1d6837cf3cd6c9dd2db6154d Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sun, 31 Mar 2019 17:05:45 -0400
Subject: PowerPoint writer: add test for speaker notes after metadata.
---
test/Tests/Writers/Powerpoint.hs | 4 ++++
test/pptx/speaker_notes_after_metadata.native | 5 +++++
test/pptx/speaker_notes_after_metadata.pptx | Bin 0 -> 31676 bytes
test/pptx/speaker_notes_after_metadata_templated.pptx | Bin 0 -> 398986 bytes
4 files changed, 9 insertions(+)
create mode 100644 test/pptx/speaker_notes_after_metadata.native
create mode 100644 test/pptx/speaker_notes_after_metadata.pptx
create mode 100644 test/pptx/speaker_notes_after_metadata_templated.pptx
(limited to 'test')
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
new file mode 100644
index 000000000..f25d9593f
Binary files /dev/null and b/test/pptx/speaker_notes_after_metadata.pptx differ
diff --git a/test/pptx/speaker_notes_after_metadata_templated.pptx b/test/pptx/speaker_notes_after_metadata_templated.pptx
new file mode 100644
index 000000000..d108cbcbc
Binary files /dev/null and b/test/pptx/speaker_notes_after_metadata_templated.pptx differ
--
cgit v1.2.3