git.iko.soy/typeable/pandoc
on master help sign in
Powerpoint writer: Add tests for speaker notes.
commit32e6ae4347fcb1f5b01e56cc6386e5d5eeb92b99 authorJesse Rosenthal <jrosenthal@jhu.edu> dateSun 18 Feb 2018, 16:21 (9 years ago) parent6562863
3 files changed+22
compare with master
unifiedsplit
test/Tests/Writers/Powerpoint.hs+5 test/pptx/speaker_notes.native+17 test/pptx/speaker_notes.pptx
test/Tests/Writers/Powerpoint.hs+5
@@ -48,4 +48,9 @@ tests = [ pptxTest
4848 def
4949 "pptx/two_column.native"
5050 "pptx/two_column.pptx"
51+ , pptxTest
52+ "speaker notes"
53+ def
54+ "pptx/speaker_notes.native"
55+ "pptx/speaker_notes.pptx"
5156 ]
test/pptx/speaker_notes.nativenew file+17
@@ -0,0 +1,17 @@
1+[Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "slide."]
2+,Div ("",["notes"],[])
3+ [Para [Str "Here",Space,Str "is",Space,Str "a",Space,Str "note."]
4+ ,Para [Str "Here",Space,Str "is",Space,Emph [Str "some"],Space,Strong [Str "other"],Space,Str "formatting."]]
5+,HorizontalRule
6+,Para [Str "A",Space,Str "page",Space,Str "with",Space,Str "no",Space,Str "speaker",Space,Str "notes"]
7+,HorizontalRule
8+,Div ("",["notes"],[])
9+ [Para [Str "The",Space,Str "first",Space,Str "note",Space,Str "div"]]
10+,Para [Str "A",Space,Str "page",Space,Str "with",Space,Str "two",Space,Str "notes."]
11+,Div ("",["notes"],[])
12+ [Para [Str "The",Space,Str "second",Space,Str "note",Space,Str "div"]]
13+,HorizontalRule
14+,Para [Str "Strip",Space,Str "links",Space,Str "and",Space,Str "footnotes."]
15+,Div ("",["notes"],[])
16+ [Para [Str "No",Space,Link ("",[],[]) [Str "link"] ("https://www.google.com",""),Space,Str "here."]
17+ ,Para [Str "No",Space,Str "note",Space,Str "here.",Note [Para [Str "You\8217ll",Space,Str "never",Space,Str "read",Space,Str "this"]]]]]
test/pptx/speaker_notes.pptxnew file

Binary file not shown.