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" , testGroup "Lists"
[ "Bullet list" =: [ "Bullet list" =:
T.unlines T.unlines
[ " - Item1" [ " - Item1"
, "" , ""
, " - Item2" , " - Item2"
] =?> ] =?>
bulletList [ para "Item1" bulletList [ para "Item1"
, para "Item2" , para "Item2"
] ]
, "Ordered list" =: , "Ordered list" =:
T.unlines T.unlines
[ " 1. Item1" [ " 1. Item1"
, "" , ""
, " 2. Item2" , " 2. Item2"
] =?> ] =?>
orderedListWith (1, Decimal, Period) [ para "Item1" orderedListWith (1, Decimal, Period) [ para "Item1"
, para "Item2" , 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" , testGroup "Nested lists"
[ "Nested list" =: [ "Nested list" =:
T.unlines T.unlines