From 8b01f03eaa0c73259ed7a6d73c649cac65edcddc Mon Sep 17 00:00:00 2001
From: Francesco Occhipinti <focchi.pinti@gmail.com>
Date: Fri, 27 Apr 2018 18:01:20 +0200
Subject: RST writer: preserve empty inline parents in flatten (#4603)

---
 test/Tests/Writers/RST.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Writers/RST.hs b/test/Tests/Writers/RST.hs
index 89ad1de48..a1a4510e0 100644
--- a/test/Tests/Writers/RST.hs
+++ b/test/Tests/Writers/RST.hs
@@ -64,6 +64,9 @@ tests = [ testGroup "rubrics"
             -- the test above is the reason why we call
             -- stripLeadingTrailingSpace through transformNested after
             -- flatten
+          , testCase "preserves empty parents" $
+            flatten (Image ("",[],[]) [] ("loc","title")) @?=
+            [Image ("",[],[]) [] ("loc","title")]
           ]
         , testGroup "inlines"
           [ "are removed when empty" =: -- #4434
-- 
cgit v1.2.3