From 859815e4c768a90a896877bf6404f56ddab8a8f7 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 29 Dec 2017 06:36:23 -0500 Subject: Powerpoint writer test: more slide number tests Add test for custom slide-level header, and notes slides. --- test/Tests/Writers/Powerpoint.hs | 13 +++++++++---- 1 file 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")) ] -- cgit v1.2.3