git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: test that lists can be separated with two blanklines after blockquote

Existing tests only checked this for paragraphs.

commit3b667c54eaa76669357b76db0641851002c58b01 authorAlexander Krotov <ilabdsf@gmail.com> dateMon 5 Feb 2018, 00:25 (9 years ago) parentca4a61a
1 file changed+27
compare with master
unifiedsplit
test/Tests/Readers/Muse.hs+27
test/Tests/Readers/Muse.hs+27
@@ -902,6 +902,33 @@ tests =
902902 , " - Baz"
903903 ] =?>
904904 bulletList [ para "Foo" <> para "bar" ] <> bulletList [ para "Baz" ]
905+ , "No blank line after blockquote" =:
906+ T.unlines
907+ [ " - <quote>"
908+ , " foo"
909+ , " </quote>"
910+ , " - bar"
911+ ] =?>
912+ bulletList [ blockQuote $ para "foo", para "bar" ]
913+ , "One blank line after blockquote" =:
914+ T.unlines
915+ [ " - <quote>"
916+ , " foo"
917+ , " </quote>"
918+ , ""
919+ , " - bar"
920+ ] =?>
921+ bulletList [ blockQuote $ para "foo", para "bar" ]
922+ , "Two blank lines after blockquote" =:
923+ T.unlines
924+ [ " - <quote>"
925+ , " foo"
926+ , " </quote>"
927+ , ""
928+ , ""
929+ , " - bar"
930+ ] =?>
931+ bulletList [ blockQuote $ para "foo" ] <> bulletList [ para "bar" ]
905932 ]
906933 -- Test that definition list requires a leading space.
907934 -- Emacs Muse does not require a space, we follow Amusewiki here.