cdaa80e · typeable/pandoc

test/Tests/Writers/Powerpoint.hs+9

compare with master

unifiedsplit

@@ -53,6 +53,14 @@ tests = groupPptxTests [ pptxTests "Inline formatting"

53 def{ writerSlideLevel = Just 1 }

54 "pptx/slide_breaks.native"

55 "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"

56 , pptxTests "table of contents"

64 , pptxTests "table of contents"

57 def{ writerTableOfContents = True }

65 def{ writerTableOfContents = True }

58 "pptx/slide_breaks.native"

66 "pptx/slide_breaks.native"

@@ -81,4 +89,5 @@ tests = groupPptxTests [ pptxTests "Inline formatting"

81 def

89 def

82 "pptx/remove_empty_slides.native"

90 "pptx/remove_empty_slides.native"

83 "pptx/remove_empty_slides.pptx"

91 "pptx/remove_empty_slides.pptx"

92+

84 ]

93 ]

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.