diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-21 10:05:05 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-03-21 10:07:07 -0400 |
| commit | f12348cab5acc811d879ff36f249215bf040c6f3 (patch) | |
| tree | 39c3cb7b421d5cbe34b24a39c29aa2d065c7c345 /test | |
| parent | ab184a519c75b2258a375a48ab123c5c2270e3bf (diff) | |
| download | pandoc-f12348cab5acc811d879ff36f249215bf040c6f3.tar.gz | |
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.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 4 | ||||
| -rw-r--r-- | test/pptx/speaker_notes_afterseps.native | 33 | ||||
| -rw-r--r-- | test/pptx/speaker_notes_afterseps.pptx | bin | 0 -> 51322 bytes | |||
| -rw-r--r-- | test/pptx/speaker_notes_afterseps_templated.pptx | bin | 0 -> 418642 bytes |
4 files changed, 37 insertions, 0 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index b5620ffdb..226cd6080 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -87,6 +87,10 @@ tests = groupPptxTests [ pptxTests "Inline formatting" def "pptx/speaker_notes.native" "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" def "pptx/remove_empty_slides.native" diff --git a/test/pptx/speaker_notes_afterseps.native b/test/pptx/speaker_notes_afterseps.native new file mode 100644 index 000000000..30910708c --- /dev/null +++ b/test/pptx/speaker_notes_afterseps.native @@ -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"]]] diff --git a/test/pptx/speaker_notes_afterseps.pptx b/test/pptx/speaker_notes_afterseps.pptx Binary files differnew file mode 100644 index 000000000..a7ba1c0d4 --- /dev/null +++ b/test/pptx/speaker_notes_afterseps.pptx diff --git a/test/pptx/speaker_notes_afterseps_templated.pptx b/test/pptx/speaker_notes_afterseps_templated.pptx Binary files differnew file mode 100644 index 000000000..73a142d1c --- /dev/null +++ b/test/pptx/speaker_notes_afterseps_templated.pptx |