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

Powerpoint output checked in MS PowerPoint 2013 (Windows)

test/Tests/Writers/Powerpoint.hs

@@ -213,4 +213,14 @@ tests = [ pptxTest
           def { writerTableOfContents = True }
           "pptx/endnotes.native"
           "pptx/endnotes_toc.pptx"
+        , pptxTest
+          "images"
+          def
+          "pptx/images.native"
+          "pptx/images.pptx"
+        , pptxTest
+          "two-column layout"
+          def
+          "pptx/two_column.native"
+          "pptx/two_column.pptx"
         ]

test/pptx/images.native

@@ -0,0 +1,5 @@
+Pandoc (Meta {unMeta = fromList []})
+[Para [Image ("",[],[]) [] ("lalune.jpg","")]
+,Para [Image ("",[],[]) [Str "The",Space,Str "Moon"] ("lalune.jpg","fig:")]
+,Header 1 ("one-more",[],[]) [Str "One",Space,Str "More"]
+,Para [Image ("",[],[]) [Str "The",Space,Str "Moon"] ("lalune.jpg","fig:")]]

test/pptx/two_column.native

@@ -0,0 +1,9 @@
+Pandoc (Meta {unMeta = fromList []})
+[Header 1 ("two-column-layout",[],[]) [Str "Two-Column",Space,Str "Layout"]
+,Div ("",["columns"],[])
+ [Div ("",["column"],[])
+  [Para [Str "One",Space,Str "paragraph."]
+  ,Para [Str "Another",Space,Str "paragraph."]]
+ ,Div ("",["column"],[])
+  [Para [Str "Second",Space,Str "column",Space,Str "paragraph."]
+  ,Para [Str "Another",Space,Str "second",Space,Str "paragraph."]]]]