@@ -216,4 +216,13 @@ tests = [ testGroup "inline code"
216216-- , testGroup "round trip"
217217-- [ property "p_markdown_round_trip" p_markdown_round_trip
218218-- ]
219+ , testGroup "lists"
220+ [ "issue #1154" =:
221+ " - <div>\n first div breaks\n </div>\n\n <button>if this button exists</button>\n\n <div>\n with this div too.\n </div>\n"
222+ =?> bulletList [divWith nullAttr (plain $ text "first div breaks") <>
223+ rawBlock "html" "<button>" <>
224+ plain (text "if this button exists") <>
225+ rawBlock "html" "</button>\n" <>
226+ divWith nullAttr (plain $ text "with this div too.")]
227+ ]
219228 ]