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