@@ -52,12 +52,12 @@ numSlideTests = testGroup "Number of slides in output"
5252 def
5353 (doc $ header 1 "Header" <> header 2 "subeader" <> para "foo")
5454 , testNumberOfSlides
55− "With h1 slide (using default slide-level)" 2
56− def
55+ "With h1 slide (using slide-level 3)" 2
56+ def {writerSlideLevel= Just 3}
5757 (doc $ header 1 "Header" <> para "foo")
5858 , testNumberOfSlides
59− "With h2 slide (using default slide-level)" 2
60− def
59+ "With h2 slide (using slide-level 3)" 3
60+ def {writerSlideLevel= Just 3}
6161 (doc $ header 1 "Header" <> header 2 "subeader" <> para "foo")
6262 , testNumberOfSlides
6363 "With image slide, no header" 3
@@ -94,6 +94,11 @@ numSlideTests = testGroup "Number of slides in output"
9494 def
9595 (doc $
9696 para "first slide" <> horizontalRule <> para "last slide")
97+ , testNumberOfSlides
98+ "with notes slide" 2
99+ def
100+ (doc $
101+ para $ text "Foo" <> note (para "note text"))
97102 ]
98103
99104