git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: test that lists can be separated with two blanklines after blockquote
3b667c5Alexander Krotov
test/Tests/Readers/Muse.hs+27
compare with master
unifiedsplit
@@ -902,6 +902,33 @@ tests =
902 , " - Baz"
902 , " - Baz"
903 ] =?>
903 ] =?>
904 bulletList [ para "Foo" <> para "bar" ] <> bulletList [ para "Baz" ]
904 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" ]
905 ]
932 ]
906 -- Test that definition list requires a leading space.
933 -- Test that definition list requires a leading space.
907 -- Emacs Muse does not require a space, we follow Amusewiki here.
934 -- Emacs Muse does not require a space, we follow Amusewiki here.