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

Muse reader: test that two blank lines after verse can separate list items

Browse source 
Unlike paragraph and <quote> tag parsers, verse parser consumes newline.
For this reason only three or more blank lines can separate list items.
This commit is contained in:
Alexander Krotov 2018-02-05 00:50:31 +03:00
parent 3b667c54ea
commit 6c45f8c8f6
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -929,6 +929,27 @@ tests =
, " - bar" , " - bar"
] =?> ] =?>
bulletList [ blockQuote $ para "foo" ] <> bulletList [ para "bar" ] bulletList [ blockQuote $ para "foo" ] <> bulletList [ para "bar" ]
, "No blank line after verse" =:
T.unlines
[ " - > foo"
, " - bar"
] =?>
bulletList [ lineBlock [ "foo" ], para "bar" ]
, "One blank line after verse" =:
T.unlines
[ " - > foo"
, ""
, " - bar"
] =?>
bulletList [ lineBlock [ "foo" ], para "bar" ]
, "Two blank lines after verse" =:
T.unlines
[ " - > foo"
, ""
, ""
, " - bar"
] =?>
bulletList [ lineBlock [ "foo" ] ] <> bulletList [ para "bar" ]
] ]
-- Test that definition list requires a leading space. -- Test that definition list requires a leading space.
-- Emacs Muse does not require a space, we follow Amusewiki here. -- Emacs Muse does not require a space, we follow Amusewiki here.