From 2eab8f465410db57a7df27631a83058f8f480d89 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 14 Feb 2018 13:41:05 +0300
Subject: Muse reader: improve verse parsing

Now verse marked up with ">" (in contrast to <verse> tag) can be placed
inside lists.
---
 test/Tests/Readers/Muse.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'test')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 2a350d252..c0ebf33cc 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -296,6 +296,17 @@ tests =
                     , "\160\160\160is here"
                     ]
         ]
+      , "Verse in list" =: " - > foo" =?> bulletList [ lineBlock [ "foo" ] ]
+      , "Multiline verse in list" =:
+        T.unlines [ " - > foo"
+                  , "   > bar"
+                  ] =?>
+        bulletList [ lineBlock [ "foo", "bar" ] ]
+      , "Paragraph after verse in list" =:
+        T.unlines [ " - > foo"
+                  , "   bar"
+                  ] =?>
+        bulletList [ lineBlock [ "foo" ] <> para "bar" ]
       , "Empty quote tag" =:
         T.unlines [ "<quote>"
                   , "</quote>"
-- 
cgit v1.2.3