diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-18 16:21:41 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-02-18 16:31:32 -0500 |
| commit | 32e6ae4347fcb1f5b01e56cc6386e5d5eeb92b99 (patch) | |
| tree | 00b27753b2dceca802932395fe02708784dd64a7 /test | |
| parent | 6562863ef1eae9796b89b9b995e63ad4e75359fb (diff) | |
| download | pandoc-32e6ae4347fcb1f5b01e56cc6386e5d5eeb92b99.tar.gz | |
Powerpoint writer: Add tests for speaker notes.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 5 | ||||
| -rw-r--r-- | test/pptx/speaker_notes.native | 17 | ||||
| -rw-r--r-- | test/pptx/speaker_notes.pptx | bin | 0 -> 35155 bytes |
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 Binary files differnew file mode 100644 index 000000000..4d2fa014e --- /dev/null +++ b/test/pptx/speaker_notes.pptx |