@@ -216,4 +216,13 @@ tests = [ testGroup "inline code"
216-- , testGroup "round trip"
216-- , testGroup "round trip"
217-- [ property "p_markdown_round_trip" p_markdown_round_trip
217-- [ property "p_markdown_round_trip" p_markdown_round_trip
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.")]