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 | |
| 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.
| -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 |