From 6c45f8c8f6db57536db95a040ab30aae75684321 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Mon, 5 Feb 2018 00:50:31 +0300 Subject: Muse reader: test that two blank lines after verse can separate list items Unlike paragraph and tag parsers, verse parser consumes newline. For this reason only three or more blank lines can separate list items. --- test/Tests/Readers/Muse.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'test') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 5cdc2c302..1be73ea5c 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -929,6 +929,27 @@ tests = , " - 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. -- Emacs Muse does not require a space, we follow Amusewiki here. -- cgit v1.2.3