From f12348cab5acc811d879ff36f249215bf040c6f3 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Wed, 21 Mar 2018 10:05:05 -0400 Subject: 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. --- test/Tests/Writers/Powerpoint.hs | 4 +++ test/pptx/speaker_notes_afterseps.native | 33 +++++++++++++++++++++++ test/pptx/speaker_notes_afterseps.pptx | Bin 0 -> 51322 bytes test/pptx/speaker_notes_afterseps_templated.pptx | Bin 0 -> 418642 bytes 4 files changed, 37 insertions(+) create mode 100644 test/pptx/speaker_notes_afterseps.native create mode 100644 test/pptx/speaker_notes_afterseps.pptx create mode 100644 test/pptx/speaker_notes_afterseps_templated.pptx 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 new file mode 100644 index 000000000..a7ba1c0d4 Binary files /dev/null and b/test/pptx/speaker_notes_afterseps.pptx differ diff --git a/test/pptx/speaker_notes_afterseps_templated.pptx b/test/pptx/speaker_notes_afterseps_templated.pptx new file mode 100644 index 000000000..73a142d1c Binary files /dev/null and b/test/pptx/speaker_notes_afterseps_templated.pptx differ -- cgit v1.2.3