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

Powerpoint writer: add tests for improved speaker notes.

Browse source 
Tests speaker notes appearing after (and inside of) separating blocks.

Output checked on Windows10 (archlinux virtualbox), PowerPoint
2013. Not corrupted, and output as expected.
This commit is contained in:
Jesse Rosenthal 2018-03-21 10:05:05 -04:00
parent ab184a519c
commit f12348cab5
4 changed files with 37 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -87,6 +87,10 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
def def
"pptx/speaker_notes.native" "pptx/speaker_notes.native"
"pptx/speaker_notes.pptx" "pptx/speaker_notes.pptx"
, pptxTests "speaker notes after a separating block"
def
"pptx/speaker_notes_afterseps.native"
"pptx/speaker_notes_afterseps.pptx"
, pptxTests "remove empty slides" , pptxTests "remove empty slides"
def def
"pptx/remove_empty_slides.native" "pptx/remove_empty_slides.native"

33
test/pptx/speaker_notes_afterseps.native Normal file
View file

@ -0,0 +1,33 @@
[Para [Image ("",[],[]) [Str "The",Space,Str "moon"] ("lalune.jpg","fig:")]
,Div ("",["notes"],[])
[Para [Str "chicken",Space,Str "and",Space,Str "dumplings"]]
,Table [Str "Demonstration",Space,Str "of",Space,Str "simple",Space,Str "table",Space,Str "syntax,",Space,Str "with",Space,Str "alignment"] [AlignRight,AlignLeft,AlignCenter,AlignDefault] [0.0,0.0,0.0,0.0]
[[Plain [Str "Right"]]
,[Plain [Str "Left"]]
,[Plain [Str "Center"]]
,[Plain [Str "Default"]]]
[[[Plain [Str "12"]]
,[Plain [Str "12"]]
,[Plain [Str "12"]]
,[Plain [Str "12"]]]
,[[Plain [Str "123"]]
,[Plain [Str "123"]]
,[Plain [Str "123"]]
,[Plain [Str "123"]]]
,[[Plain [Str "1"]]
,[Plain [Str "1"]]
,[Plain [Str "1"]]
,[Plain [Str "1"]]]]
,Div ("",["notes"],[])
[Para [Str "foo",Space,Str "bar"]]
,Div ("",["columns"],[])
[Div ("",["column"],[])
[BulletList
[[Para [Str "some",Space,Str "stuff"]]
,[Para [Str "some",Space,Str "more",Space,Str "stuff"]]]
,Div ("",["notes"],[])
[Para [Str "Some",Space,Str "notes",Space,Str "inside",Space,Str "a",Space,Str "column"]]]
,Div ("",["column"],[])
[Para [Str "Some",Space,Str "other",Space,Emph [Str "stuff"]]]]
,Div ("",["notes"],[])
[Para [Str "Some",Space,Str "notes",Space,Str "outside",Space,Str "the",Space,Str "column"]]]

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

Binary file not shown.

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

Binary file not shown.