From 75e2a1104cda760a939ca12258c0355844f70a31 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 22 Nov 2017 18:49:07 +0300
Subject: Muse reader: allow list items to be empty

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

(limited to 'test/Tests/Readers')

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index fe75135f7..65665c1d2 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -566,6 +566,27 @@ tests =
                                              , para "Item2"
                                              , para "Item3"
                                              ]
+      , "Bullet list with empty items" =:
+        T.unlines
+          [ " -"
+          , ""
+          , " - Item2"
+          ] =?>
+        bulletList [ mempty
+                   , para "Item2"
+                   ]
+      , "Ordered list with empty items" =:
+        T.unlines
+          [ " 1."
+          , ""
+          , " 2."
+          , ""
+          , " 3. Item3"
+          ] =?>
+        orderedListWith (1, Decimal, Period) [ mempty
+                                             , mempty
+                                             , para "Item3"
+                                             ]
       , testGroup "Nested lists"
         [ "Nested list" =:
           T.unlines
-- 
cgit v1.2.3