@@ -226,6 +226,13 @@ tests =
226226
227227 , "Verbatim tag after text" =: "Foo <verbatim>bar</verbatim>" =?> para "Foo bar"
228228
229+ , "Verbatim tag escapes block level markup" =:
230+ T.unlines [ "Foo <verbatim>bar"
231+ , "* Not a heading"
232+ , "</verbatim>baz"
233+ ] =?>
234+ para "Foo bar\n* Not a heading\nbaz"
235+
229236 , "Class tag" =: "<class name=\"foo\">bar</class>" =?> para (spanWith ("", ["foo"], []) "bar")
230237 , "Class tag without name" =: "<class>foobar</class>" =?> para (spanWith ("", [], []) "foobar")
231238