From c3fbc492c8795c0cd92f29f69d01819e8dccec93 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 12 Mar 2018 14:24:50 +0300
Subject: Muse reader: require closing tag to have the same indentation as
 opening

---
 test/Tests/Readers/Muse.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'test/Tests')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index f64927ff1..f961083ef 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -1242,5 +1242,23 @@ tests =
           , "   </verse>"
           ] =?>
         bulletList [ para "<quote>" <> lineBlock [ "</quote>" ] ]
+
+      -- Allowing indented closing tags is dangerous,
+      -- as they may terminate lists
+      , "No indented closing tags" =:
+        T.unlines
+          [ "<quote>"
+          , ""
+          , " - Foo"
+          , ""
+          , "   </quote>"
+          , ""
+          , "   bar"
+          , ""
+          , "   <verse>"
+          , "   </quote>"
+          , "   </verse>"
+          ] =?>
+        para "<quote>" <> bulletList [ para "Foo" <> para "</quote>" <> para "bar" <> lineBlock [ "</quote>" ] ]
       ]
   ]
-- 
cgit v1.2.3