From cd85c73ded2b100d33d3c1d36eac182bdd593b2f Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Wed, 22 Nov 2017 22:17:45 +0100 Subject: Org reader: allow empty list items Fixes: #4090 --- test/Tests/Readers/Org.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'test') diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index 30074d6bd..dbd56c880 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -1262,6 +1262,12 @@ tests = , headerWith ("notvalidlistitem", [], []) 1 "NotValidListItem" ] + , "Empty bullet points" =: + T.unlines [ "-" + , "- " + ] =?> + bulletList [ plain "", plain "" ] + , "Simple Ordered List" =: ("1. Item1\n" <> "2. Item2\n") =?> @@ -1289,6 +1295,12 @@ tests = ] in orderedListWith listStyle listStructure + , "Empty ordered list item" =: + T.unlines [ "1." + , "3. " + ] =?> + orderedList [ plain "", plain "" ] + , "Nested Ordered Lists" =: ("1. One\n" <> " 1. One-One\n" <> -- cgit v1.2.3