From 335a1c7f4867f7cd3575f07b5efa75712d59d1ac Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 21 Jul 2017 11:04:13 +0300 Subject: Muse reader: fix reading of lists inside tags (#3802) --- test/Tests/Readers/Muse.hs | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'test') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index fe0a59992..a069bb972 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -314,5 +314,33 @@ tests = , para "* Bar" ] ] + , "List inside a tag" =: + T.unlines + [ "" + , " 1. First" + , "" + , " 2. Second" + , "" + , " 3. Third" + , "" + ] =?> + blockQuote (orderedListWith (1, Decimal, Period) [ para "First" + , para "Second" + , para "Third" + ]) + -- Amusewiki requires block tags to be on separate lines, + -- but Emacs Muse allows them to be on the same line as contents. + , "List inside an inline tag" =: + T.unlines + [ " 1. First" + , "" + , " 2. Second" + , "" + , " 3. Third" + ] =?> + blockQuote (orderedListWith (1, Decimal, Period) [ para "First" + , para "Second" + , para "Third" + ]) ] ] -- cgit v1.2.3