From 24f68654e919a8ff138d0a1fcfbf8e045b8ae38b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 12 Oct 2015 23:00:27 -0700
Subject: RST writer:  do header normalization only in "standalone" mode.

If we're producing a fragment, just skip normalization.
After all, the fragment might be somewhere in the middle
of the document.  It's more important for fragments to
have consistency in rendering (so they can be pieced
together) than to normalize.

This closes #2394.  It's simpler and more robust than
my earlier fix.
---
 tests/Tests/Writers/RST.hs | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'tests/Tests/Writers')

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"
-              , "~~~~~~~~"]
+              , "--------"]
           ]
         ]
-- 
cgit v1.2.3