git.iko.soy/typeable/pandoc
on master help sign in
Powerpoint writer: add test for table and list syntax

These were never added when the tests were first created. Output files checked in MS PowerPoint 2013 (Windows 10, VBox). No corruption, and output as expected.

commitcdaa80e718ac177fb355819fc48c57f77d2a6bd1 authorJesse Rosenthal <jrosenthal@jhu.edu> dateTue 27 Feb 2018, 09:34 (9 years ago) parentcdbe45e
7 files changed+62
compare with master
unifiedsplit
test/Tests/Writers/Powerpoint.hs+9 test/pptx/lists.native+18 test/pptx/lists.pptx test/pptx/lists_templated.pptx test/pptx/tables.native+35 test/pptx/tables.pptx test/pptx/tables_templated.pptx
test/Tests/Writers/Powerpoint.hs+9
@@ -53,6 +53,14 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
5353 def{ writerSlideLevel = Just 1 }
5454 "pptx/slide_breaks.native"
5555 "pptx/slide_breaks_slide_level_1.pptx"
56+ , pptxTests "lists"
57+ def
58+ "pptx/lists.native"
59+ "pptx/lists.pptx"
60+ , pptxTests "tables"
61+ def
62+ "pptx/tables.native"
63+ "pptx/tables.pptx"
5664 , pptxTests "table of contents"
5765 def{ writerTableOfContents = True }
5866 "pptx/slide_breaks.native"
@@ -81,4 +89,5 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
8189 def
8290 "pptx/remove_empty_slides.native"
8391 "pptx/remove_empty_slides.pptx"
92+
8493 ]
test/pptx/lists.nativenew file+18
@@ -0,0 +1,18 @@
1+[Header 1 ("lists",[],[]) [Str "Lists"]
2+,BulletList
3+ [[Para [Str "Bulleted",Space,Str "bulleted",Space,Str "lists."]]
4+ ,[Para [Str "And",Space,Str "go",Space,Str "to",Space,Str "aribtrary",Space,Str "depth."]
5+ ,BulletList
6+ [[Para [Str "Like",Space,Str "this"]
7+ ,BulletList
8+ [[Plain [Str "Or",Space,Str "this"]]]]
9+ ,[Para [Str "Back",Space,Str "to",Space,Str "here."]]]]]
10+,Header 1 ("lists-continued",[],[]) [Str "Lists",Space,Str "(continued)"]
11+,Para [Str "Lists",Space,Str "can",Space,Str "also",Space,Str "be",Space,Str "numbered:"]
12+,OrderedList (1,Decimal,Period)
13+ [[Para [Str "Tomatoes"]]
14+ ,[Para [Str "Potatoes",Space,Str "of",Space,Str "various",Space,Str "sorts"]
15+ ,OrderedList (1,LowerAlpha,Period)
16+ [[Para [Str "sweet",Space,Str "potatoes"]]
17+ ,[Para [Str "russet",Space,Str "potates"]]]]
18+ ,[Para [Str "Tornadoes,",Space,Str "for",Space,Str "the",Space,Str "rhyme."]]]]
test/pptx/lists.pptxnew file

Binary file not shown.

test/pptx/lists_templated.pptxnew file

Binary file not shown.

test/pptx/tables.nativenew file+35
@@ -0,0 +1,35 @@
1+[Header 2 ("a-table-with-a-caption",[],[]) [Str "A",Space,Str "Table,",Space,Str "with",Space,Str "a",Space,Str "caption"]
2+,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]
3+ [[Plain [Str "Right"]]
4+ ,[Plain [Str "Left"]]
5+ ,[Plain [Str "Center"]]
6+ ,[Plain [Str "Default"]]]
7+ [[[Plain [Str "12"]]
8+ ,[Plain [Str "12"]]
9+ ,[Plain [Str "12"]]
10+ ,[Plain [Str "12"]]]
11+ ,[[Plain [Str "123"]]
12+ ,[Plain [Str "123"]]
13+ ,[Plain [Str "123"]]
14+ ,[Plain [Str "123"]]]
15+ ,[[Plain [Str "1"]]
16+ ,[Plain [Str "1"]]
17+ ,[Plain [Str "1"]]
18+ ,[Plain [Str "1"]]]]
19+,Table [] [AlignRight,AlignLeft,AlignCenter,AlignDefault] [0.0,0.0,0.0,0.0]
20+ [[Plain [Str "Right"]]
21+ ,[Plain [Str "Left"]]
22+ ,[Plain [Str "Center"]]
23+ ,[Plain [Str "Default"]]]
24+ [[[Plain [Str "12"]]
25+ ,[Plain [Str "12"]]
26+ ,[Plain [Str "12"]]
27+ ,[Plain [Str "12"]]]
28+ ,[[Plain [Str "123"]]
29+ ,[Plain [Str "123"]]
30+ ,[Plain [Str "123"]]
31+ ,[Plain [Str "123"]]]
32+ ,[[Plain [Str "1"]]
33+ ,[Plain [Str "1"]]
34+ ,[Plain [Str "1"]]
35+ ,[Plain [Str "1"]]]]]
test/pptx/tables.pptxnew file

Binary file not shown.

test/pptx/tables_templated.pptxnew file

Binary file not shown.