From 0b63ac2db1924e487aa83c6b2683b16e64a4d566 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 22 Nov 2017 18:48:45 +0300 Subject: Muse reader: add ordered list test --- test/Tests/Readers/Muse.hs | 36 ++++++++++++++++++++++++------------ 1 file changed, 24 insertions(+), 12 deletions(-) diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 279572ad1..fe75135f7 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -537,23 +537,35 @@ tests = ] , testGroup "Lists" [ "Bullet list" =: - T.unlines + T.unlines [ " - Item1" , "" , " - Item2" ] =?> - bulletList [ para "Item1" - , para "Item2" - ] + bulletList [ para "Item1" + , para "Item2" + ] , "Ordered list" =: - T.unlines - [ " 1. Item1" - , "" - , " 2. Item2" - ] =?> - orderedListWith (1, Decimal, Period) [ para "Item1" - , para "Item2" - ] + T.unlines + [ " 1. Item1" + , "" + , " 2. Item2" + ] =?> + orderedListWith (1, Decimal, Period) [ para "Item1" + , para "Item2" + ] + , "Ordered list with implicit numbers" =: + T.unlines + [ " 1. Item1" + , "" + , " 1. Item2" + , "" + , " 1. Item3" + ] =?> + orderedListWith (1, Decimal, Period) [ para "Item1" + , para "Item2" + , para "Item3" + ] , testGroup "Nested lists" [ "Nested list" =: T.unlines -- cgit v1.2.3