From de117fbd9e32e890663eb831b47fd91fcd6419a0 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 12 Jul 2017 18:16:02 +0300
Subject: Muse writer: indent lists inside <quote> with at least one space
 (#3795)

---
 test/Tests/Writers/Muse.hs | 11 +++++++++++
 test/writer.muse           |  6 +++---
 2 files changed, 14 insertions(+), 3 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index d83cc5c9b..ebe5d45cd 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -137,6 +137,17 @@ tests = [ testGroup "block elements"
                                                       , "                       second inner definition :: second inner description"
                                                       ]
               ]
+            -- Check that list is intended with one space even inside a quote
+            , "List inside block quote" =: blockQuote (orderedList [ plain $ text "first"
+                                                                   , plain $ text "second"
+                                                                   , plain $ text "third"
+                                                                   ])
+                                        =?> unlines [ "<quote>"
+                                                    , " 1. first"
+                                                    , " 2. second"
+                                                    , " 3. third"
+                                                    , "</quote>"
+                                                    ]
             ]
           , testGroup "headings"
             [ "normal heading" =:
diff --git a/test/writer.muse b/test/writer.muse
index 41d1c9a5b..fda025812 100644
--- a/test/writer.muse
+++ b/test/writer.muse
@@ -65,8 +65,8 @@ sub status {
 
 A list:
 
-1. item one
-2. item two
+ 1. item one
+ 2. item two
 
 Nested block quotes:
 
@@ -281,7 +281,7 @@ Multiple blocks with italics:
                     </example>
 
                     <quote>
-orange block quote
+                    orange block quote
                     </quote>
 
 Multiple definitions, tight:
-- 
cgit v1.2.3