Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: add ordered list test

Browse source
This commit is contained in:
Alexander Krotov 2017-11-22 18:48:45 +03:00
parent 454062eccd
commit 0b63ac2db1
1 changed files with 24 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
test/Tests/Readers/Muse.hs
View file

@ -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