f8640fd · typeable/pandoc

git.iko.soy/typeable/pandoc

Powerpoint writer tests: add tests for two-column layout and images

Powerpoint output checked in MS PowerPoint 2013 (Windows)

commitf8640fdff0ead507914c402109b02a778ca1c4c3 authorJesse Rosenthal <jrosenthal@jhu.edu> dateMon 22 Jan 2018, 14:06 (9 years ago) parent145c3f5

5 files changed+24

unifiedsplit

test/Tests/Writers/Powerpoint.hs+10

@@ -213,4 +213,14 @@ tests = [ pptxTest

213213 def { writerTableOfContents = True }

214214 "pptx/endnotes.native"

215215 "pptx/endnotes_toc.pptx"

216+ , pptxTest

217+ "images"

218+ def

219+ "pptx/images.native"

220+ "pptx/images.pptx"

221+ , pptxTest

222+ "two-column layout"

223+ def

224+ "pptx/two_column.native"

225+ "pptx/two_column.pptx"

216226 ]

test/pptx/images.nativenew file+5

@@ -0,0 +1,5 @@

1+Pandoc (Meta {unMeta = fromList []})

2+[Para [Image ("",[],[]) [] ("lalune.jpg","")]

3+,Para [Image ("",[],[]) [Str "The",Space,Str "Moon"] ("lalune.jpg","fig:")]

4+,Header 1 ("one-more",[],[]) [Str "One",Space,Str "More"]

5+,Para [Image ("",[],[]) [Str "The",Space,Str "Moon"] ("lalune.jpg","fig:")]]

test/pptx/images.pptxnew file

Binary file not shown.

test/pptx/two_column.nativenew file+9

@@ -0,0 +1,9 @@

1+Pandoc (Meta {unMeta = fromList []})

2+[Header 1 ("two-column-layout",[],[]) [Str "Two-Column",Space,Str "Layout"]

3+,Div ("",["columns"],[])

4+ [Div ("",["column"],[])

5+ [Para [Str "One",Space,Str "paragraph."]

6+ ,Para [Str "Another",Space,Str "paragraph."]]

7+ ,Div ("",["column"],[])

8+ [Para [Str "Second",Space,Str "column",Space,Str "paragraph."]

9+ ,Para [Str "Another",Space,Str "second",Space,Str "paragraph."]]]]

test/pptx/two_column.pptxnew file

Binary file not shown.