Powerpoint writer: Add tests for speaker notes.

3 files changed, 22 insertions, 0 deletions

diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs
index 7b21b9e74..621b4fe2f 100644
--- a/test/Tests/Writers/Powerpoint.hs
+++ b/test/Tests/Writers/Powerpoint.hs
@@ -48,4 +48,9 @@ tests = [ pptxTest
           def
           "pptx/two_column.native"
           "pptx/two_column.pptx"
+        , pptxTest
+          "speaker notes"
+          def
+          "pptx/speaker_notes.native"
+          "pptx/speaker_notes.pptx"
         ]
diff --git a/test/pptx/speaker_notes.native b/test/pptx/speaker_notes.native
new file mode 100644
index 000000000..4eeca2107
--- /dev/null
+++ b/test/pptx/speaker_notes.native
@@ -0,0 +1,17 @@
+[Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "slide."]
+,Div ("",["notes"],[])
+ [Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "note."]
+ ,Para [Str "Here",Space,Str "is",Space,Emph [Str "some"],Space,Strong [Str "other"],Space,Str "formatting."]]
+,HorizontalRule
+,Para [Str "A",Space,Str "page",Space,Str "with",Space,Str "no",Space,Str "speaker",Space,Str "notes"]
+,HorizontalRule
+,Div ("",["notes"],[])
+ [Para [Str "The",Space,Str "first",Space,Str "note",Space,Str "div"]]
+,Para [Str "A",Space,Str "page",Space,Str "with",Space,Str "two",Space,Str "notes."]
+,Div ("",["notes"],[])
+ [Para [Str "The",Space,Str "second",Space,Str "note",Space,Str "div"]]
+,HorizontalRule
+,Para [Str "Strip",Space,Str "links",Space,Str "and",Space,Str "footnotes."]
+,Div ("",["notes"],[])
+ [Para [Str "No",Space,Link ("",[],[]) [Str "link"] ("https://www.google.com",""),Space,Str "here."]
+ ,Para [Str "No",Space,Str "note",Space,Str "here.",Note [Para [Str "You\8217ll",Space,Str "never",Space,Str "read",Space,Str "this"]]]]]
diff --git a/test/pptx/speaker_notes.pptx b/test/pptx/speaker_notes.pptx
new file mode 100644
index 000000000..4d2fa014e
--- /dev/null
+++ b/test/pptx/speaker_notes.pptx