aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-22 18:48:45 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-22 18:48:45 +0300
commit0b63ac2db1924e487aa83c6b2683b16e64a4d566 (patch)
treeaa698b5ff34b0295e5ee7359972f2747cfdd8544
parent454062eccdcc0047e6134bdd4d86c2debb0b3ce7 (diff)
downloadpandoc-0b63ac2db1924e487aa83c6b2683b16e64a4d566.tar.gz
Muse reader: add ordered list test
-rw-r--r--test/Tests/Readers/Muse.hs36
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