From 82bcda80c6e8b9e6e4e6c707569df4f9022b042f Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 19 Nov 2017 04:26:45 +0300 Subject: Muse reader: count only one space as part of list item marker --- test/Tests/Readers/Muse.hs | 58 ++++++++++++++++++++++++++++------------------ 1 file changed, 36 insertions(+), 22 deletions(-) (limited to 'test') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 3011df648..c76013b90 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -527,28 +527,42 @@ tests = orderedListWith (1, Decimal, Period) [ para "Item1" , para "Item2" ] - , "Nested list" =: - T.unlines - [ " - Item1" - , " - Item2" - , " - Item3" - , " - Item4" - , " 1. Nested" - , " 2. Ordered" - , " 3. List" - ] =?> - bulletList [ mconcat [ para "Item1" - , bulletList [ para "Item2" - , para "Item3" - ] - ] - , mconcat [ para "Item4" - , orderedListWith (1, Decimal, Period) [ para "Nested" - , para "Ordered" - , para "List" - ] - ] - ] + , testGroup "Nested lists" + [ "Nested list" =: + T.unlines + [ " - Item1" + , " - Item2" + , " - Item3" + , " - Item4" + , " 1. Nested" + , " 2. Ordered" + , " 3. List" + ] =?> + bulletList [ mconcat [ para "Item1" + , bulletList [ para "Item2" + , para "Item3" + ] + ] + , mconcat [ para "Item4" + , orderedListWith (1, Decimal, Period) [ para "Nested" + , para "Ordered" + , para "List" + ] + ] + ] + , "Incorrectly indented Text::Amuse nested list" =: + T.unlines + [ " - First item" + , " - Not nested item" + ] =?> + bulletList [ para "First item", para "Not nested item"] + , "Text::Amuse includes only one space in list marker" =: + T.unlines + [ " - First item" + , " - Nested item" + ] =?> + bulletList [ para "First item" <> bulletList [ para "Nested item"]] + ] , "List continuation" =: T.unlines [ " - a" -- cgit v1.2.3