diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-09-19 23:32:23 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-09-19 23:32:23 -0700 |
| commit | 54526665c39fe389ffaa202211e481fa9b692e76 (patch) | |
| tree | 74fa7b28f33a0b5194fb298433f8cb6864bea4b7 /tests | |
| parent | 4d49f76dbb8f51db5fd2527c3ef779996bf8936f (diff) | |
| parent | 5788f62ef55f59d00f5fae7f309cd5d1b349d8f8 (diff) | |
| download | pandoc-54526665c39fe389ffaa202211e481fa9b692e76.tar.gz | |
Merge pull request #2405 from lierdakil/rest-normalize-amend
[RST Writer] Don't normalize heading levels below input minimum
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Writers/RST.hs | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/Tests/Writers/RST.hs b/tests/Tests/Writers/RST.hs index 2a511782f..bb7b2a446 100644 --- a/tests/Tests/Writers/RST.hs +++ b/tests/Tests/Writers/RST.hs @@ -75,5 +75,30 @@ tests = [ testGroup "rubrics" , "" , "Header 2" , "--------"] + , "minimal heading levels" =: + header 2 (text "Header 1") <> + header 3 (text "Header 2") <> + header 2 (text "Header 1") <> + header 4 (text "Header 2") <> + header 5 (text "Header 3") <> + header 3 (text "Header 2") =?> + unlines + [ "Header 1" + , "--------" + , "" + , "Header 2" + , "~~~~~~~~" + , "" + , "Header 1" + , "--------" + , "" + , "Header 2" + , "~~~~~~~~" + , "" + , "Header 3" + , "^^^^^^^^" + , "" + , "Header 2" + , "~~~~~~~~"] ] ] |