diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-22 18:48:45 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-22 18:48:45 +0300 |
| commit | 0b63ac2db1924e487aa83c6b2683b16e64a4d566 (patch) | |
| tree | aa698b5ff34b0295e5ee7359972f2747cfdd8544 /test | |
| parent | 454062eccdcc0047e6134bdd4d86c2debb0b3ce7 (diff) | |
Muse reader: add ordered list test
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 36 |
1 files 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 |