git.iko.soy/typeable/pandoc
on master help sign in
Powerpoint writer: add tests for improved speaker notes.

Tests speaker notes appearing after (and inside of) separating blocks. Output checked on Windows10 (archlinux virtualbox), PowerPoint 2013. Not corrupted, and output as expected.

commitf12348cab5acc811d879ff36f249215bf040c6f3 authorJesse Rosenthal <jrosenthal@jhu.edu> dateWed 21 Mar 2018, 10:05 (9 years ago) parentab184a5
4 files changed+37
compare with master
unifiedsplit
test/Tests/Writers/Powerpoint.hs+4 test/pptx/speaker_notes_afterseps.native+33 test/pptx/speaker_notes_afterseps.pptx test/pptx/speaker_notes_afterseps_templated.pptx
test/Tests/Writers/Powerpoint.hs+4
@@ -87,6 +87,10 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
8787 def
8888 "pptx/speaker_notes.native"
8989 "pptx/speaker_notes.pptx"
90+ , pptxTests "speaker notes after a separating block"
91+ def
92+ "pptx/speaker_notes_afterseps.native"
93+ "pptx/speaker_notes_afterseps.pptx"
9094 , pptxTests "remove empty slides"
9195 def
9296 "pptx/remove_empty_slides.native"
test/pptx/speaker_notes_afterseps.nativenew file+33
@@ -0,0 +1,33 @@
1+[Para [Image ("",[],[]) [Str "The",Space,Str "moon"] ("lalune.jpg","fig:")]
2+,Div ("",["notes"],[])
3+ [Para [Str "chicken",Space,Str "and",Space,Str "dumplings"]]
4+,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]
5+ [[Plain [Str "Right"]]
6+ ,[Plain [Str "Left"]]
7+ ,[Plain [Str "Center"]]
8+ ,[Plain [Str "Default"]]]
9+ [[[Plain [Str "12"]]
10+ ,[Plain [Str "12"]]
11+ ,[Plain [Str "12"]]
12+ ,[Plain [Str "12"]]]
13+ ,[[Plain [Str "123"]]
14+ ,[Plain [Str "123"]]
15+ ,[Plain [Str "123"]]
16+ ,[Plain [Str "123"]]]
17+ ,[[Plain [Str "1"]]
18+ ,[Plain [Str "1"]]
19+ ,[Plain [Str "1"]]
20+ ,[Plain [Str "1"]]]]
21+,Div ("",["notes"],[])
22+ [Para [Str "foo",Space,Str "bar"]]
23+,Div ("",["columns"],[])
24+ [Div ("",["column"],[])
25+ [BulletList
26+ [[Para [Str "some",Space,Str "stuff"]]
27+ ,[Para [Str "some",Space,Str "more",Space,Str "stuff"]]]
28+ ,Div ("",["notes"],[])
29+ [Para [Str "Some",Space,Str "notes",Space,Str "inside",Space,Str "a",Space,Str "column"]]]
30+ ,Div ("",["column"],[])
31+ [Para [Str "Some",Space,Str "other",Space,Emph [Str "stuff"]]]]
32+,Div ("",["notes"],[])
33+ [Para [Str "Some",Space,Str "notes",Space,Str "outside",Space,Str "the",Space,Str "column"]]]
test/pptx/speaker_notes_afterseps.pptxnew file

Binary file not shown.

test/pptx/speaker_notes_afterseps_templated.pptxnew file

Binary file not shown.