diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-03 21:58:39 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-03 21:58:39 -0500 |
| commit | bf15258d3b18bd2a7daae803b52a9b851eb204eb (patch) | |
| tree | 567ec6b9c24380aca18aa51d5c35dc7ec8dd8354 /test/Tests/Writers | |
| parent | 41dc65b37f19fefb5036d40d631a9d29561dc422 (diff) | |
Powerpoint writer: Set default slidelevel correctly.
We had previously defaulted to slideLevel 2. Now we use the correct
behavior of defaulting to the highest level header followed by
content. We change an expected test result to match this behavior.
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Powerpoint.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Writers/Powerpoint.hs b/test/Tests/Writers/Powerpoint.hs index 39fd1bab5..cc94f822d 100644 --- a/test/Tests/Writers/Powerpoint.hs +++ b/test/Tests/Writers/Powerpoint.hs @@ -52,7 +52,7 @@ numSlideTests = testGroup "Number of slides in output" def (setTitle "My Title" $ doc $ para "foo") , testNumberOfSlides - "With h1 slide (using default slide-level)" 2 + "With h1 slide (using default slide-level)" 1 def (doc $ header 1 "Header" <> para "foo") , testNumberOfSlides |