@@ -929,6 +929,27 @@ tests =
929929 , " - bar"
930930 ] =?>
931931 bulletList [ blockQuote $ para "foo" ] <> bulletList [ para "bar" ]
932+ , "No blank line after verse" =:
933+ T.unlines
934+ [ " - > foo"
935+ , " - bar"
936+ ] =?>
937+ bulletList [ lineBlock [ "foo" ], para "bar" ]
938+ , "One blank line after verse" =:
939+ T.unlines
940+ [ " - > foo"
941+ , ""
942+ , " - bar"
943+ ] =?>
944+ bulletList [ lineBlock [ "foo" ], para "bar" ]
945+ , "Two blank lines after verse" =:
946+ T.unlines
947+ [ " - > foo"
948+ , ""
949+ , ""
950+ , " - bar"
951+ ] =?>
952+ bulletList [ lineBlock [ "foo" ] ] <> bulletList [ para "bar" ]
932953 ]
933954 -- Test that definition list requires a leading space.
934955 -- Emacs Muse does not require a space, we follow Amusewiki here.