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.
This commit is contained in:
Jesse Rosenthal 2018-02-27 09:34:24 -05:00
parent cdbe45e8ee
commit cdaa80e718
7 changed files with 62 additions and 0 deletions

View file

@ -53,6 +53,14 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
def{ writerSlideLevel = Just 1 }
"pptx/slide_breaks.native"
"pptx/slide_breaks_slide_level_1.pptx"
, pptxTests "lists"
def
"pptx/lists.native"
"pptx/lists.pptx"
, pptxTests "tables"
def
"pptx/tables.native"
"pptx/tables.pptx"
, pptxTests "table of contents"
def{ writerTableOfContents = True }
"pptx/slide_breaks.native"
@ -81,4 +89,5 @@ tests = groupPptxTests [ pptxTests "Inline formatting"
def
"pptx/remove_empty_slides.native"
"pptx/remove_empty_slides.pptx"
]

18
test/pptx/lists.native Normal file
View file

@ -0,0 +1,18 @@
[Header 1 ("lists",[],[]) [Str "Lists"]
,BulletList
[[Para [Str "Bulleted",Space,Str "bulleted",Space,Str "lists."]]
,[Para [Str "And",Space,Str "go",Space,Str "to",Space,Str "aribtrary",Space,Str "depth."]
,BulletList
[[Para [Str "Like",Space,Str "this"]
,BulletList
[[Plain [Str "Or",Space,Str "this"]]]]
,[Para [Str "Back",Space,Str "to",Space,Str "here."]]]]]
,Header 1 ("lists-continued",[],[]) [Str "Lists",Space,Str "(continued)"]
,Para [Str "Lists",Space,Str "can",Space,Str "also",Space,Str "be",Space,Str "numbered:"]
,OrderedList (1,Decimal,Period)
[[Para [Str "Tomatoes"]]
,[Para [Str "Potatoes",Space,Str "of",Space,Str "various",Space,Str "sorts"]
,OrderedList (1,LowerAlpha,Period)
[[Para [Str "sweet",Space,Str "potatoes"]]
,[Para [Str "russet",Space,Str "potates"]]]]
,[Para [Str "Tornadoes,",Space,Str "for",Space,Str "the",Space,Str "rhyme."]]]]

BIN
test/pptx/lists.pptx Normal file

Binary file not shown.

Binary file not shown.

35
test/pptx/tables.native Normal file
View file

@ -0,0 +1,35 @@
[Header 2 ("a-table-with-a-caption",[],[]) [Str "A",Space,Str "Table,",Space,Str "with",Space,Str "a",Space,Str "caption"]
,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"]]]]
,Table [] [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"]]]]]

BIN
test/pptx/tables.pptx Normal file

Binary file not shown.

Binary file not shown.