diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-29 06:36:23 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-29 06:36:23 -0500 |
| commit | 859815e4c768a90a896877bf6404f56ddab8a8f7 (patch) | |
| tree | 9368a1f6943b55ee8e4fd323717abae21dbc4bc3 /test/Tests/Writers | |
| parent | f42839ee2c14cf707c1059c0b3f5e4b31c642efb (diff) | |
Powerpoint writer test: more slide number tests
Add test for custom slide-level header, and notes slides.
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index 46ebd77bd..7c72f948e 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -52,12 +52,12 @@ numSlideTests = testGroup "Number of slides in output" def (doc $ header 1 "Header" <> header 2 "subeader" <> para "foo") , testNumberOfSlides - "With h1 slide (using default slide-level)" 2 - def + "With h1 slide (using slide-level 3)" 2 + def {writerSlideLevel= Just 3} (doc $ header 1 "Header" <> para "foo") , testNumberOfSlides - "With h2 slide (using default slide-level)" 2 - def + "With h2 slide (using slide-level 3)" 3 + def {writerSlideLevel= Just 3} (doc $ header 1 "Header" <> header 2 "subeader" <> para "foo") , testNumberOfSlides "With image slide, no header" 3 @@ -94,6 +94,11 @@ numSlideTests = testGroup "Number of slides in output" def (doc $ para "first slide" <> horizontalRule <> para "last slide") + , testNumberOfSlides + "with notes slide" 2 + def + (doc $ + para $ text "Foo" <> note (para "note text")) ] |