Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Powerpoint writer: Add tests for speaker notes.

Browse source
This commit is contained in:
Jesse Rosenthal 2018-02-18 16:21:41 -05:00
parent 6562863ef1
commit 32e6ae4347
3 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/Tests/Writers/Powerpoint.hs
View file

@ -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"
]

17
test/pptx/speaker_notes.native Normal file
View file

@ -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"]]]]]

BIN
test/pptx/speaker_notes.pptx Normal file
View file

Binary file not shown.