aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Writers/RST.hs21
1 files changed, 13 insertions, 8 deletions
diff --git a/tests/Tests/Writers/RST.hs b/tests/Tests/Writers/RST.hs
index bb7b2a446..b9e359dae 100644
--- a/tests/Tests/Writers/RST.hs
+++ b/tests/Tests/Writers/RST.hs
@@ -46,7 +46,10 @@ tests = [ testGroup "rubrics"
unlines
[ "foo"
, "==="]
- , "heading levels" =:
+ -- note: heading normalization is only done in standalone mode
+ , test (writeRST def{ writerStandalone = True,
+ writerTemplate = "$body$\n" } . toPandoc)
+ "heading levels" $
header 1 (text "Header 1") <>
header 3 (text "Header 2") <>
header 2 (text "Header 2") <>
@@ -75,7 +78,9 @@ tests = [ testGroup "rubrics"
, ""
, "Header 2"
, "--------"]
- , "minimal heading levels" =:
+ , test (writeRST def{ writerStandalone = True,
+ writerTemplate = "$body$\n" } . toPandoc)
+ "minimal heading levels" $
header 2 (text "Header 1") <>
header 3 (text "Header 2") <>
header 2 (text "Header 1") <>
@@ -84,21 +89,21 @@ tests = [ testGroup "rubrics"
header 3 (text "Header 2") =?>
unlines
[ "Header 1"
- , "--------"
+ , "========"
, ""
, "Header 2"
- , "~~~~~~~~"
+ , "--------"
, ""
, "Header 1"
- , "--------"
+ , "========"
, ""
, "Header 2"
- , "~~~~~~~~"
+ , "--------"
, ""
, "Header 3"
- , "^^^^^^^^"
+ , "~~~~~~~~"
, ""
, "Header 2"
- , "~~~~~~~~"]
+ , "--------"]
]
]