@@ -154,6 +154,12 @@ tests = [ testGroup "inline code"
154154 [ "in URL" =:
155155 "\\begin\n" =?> para (text "\\begin")
156156 ]
157+ , testGroup "raw HTML"
158+ [ "nesting (issue #1330)" =:
159+ "<del>test</del>" =?>
160+ rawBlock "html" "<del>" <> plain (str "test") <>
161+ rawBlock "html" "</del>"
162+ ]
157163 , "unbalanced brackets" =:
158164 "[[[[[[[[[[[[[[[hi" =?> para (text "[[[[[[[[[[[[[[[hi")
159165 , testGroup "backslash escapes"