Added HTML reader tests for empty strong, emph.

2 files changed, 2 insertions, 0 deletions

diff --git a/tests/html-reader.html b/tests/html-reader.html
index b7e5c0d2f..1e104b00f 100644
--- a/tests/html-reader.html
+++ b/tests/html-reader.html
@@ -302,6 +302,7 @@ These should not be escaped:  \$ \\ \> \[ \{
 <h1>Inline Markup</h1>
 <p>This is <em>emphasized</em>, and so <em>is this</em>.</p>
 <p>This is <strong>strong</strong>, and so <strong>is this</strong>.</p>
+<p>Empty <strong></strong> and <em></em>.
 <p>An <em><a href="/url">emphasized link</a></em>.</p>
 <p><strong><em>This is strong and em.</em></strong></p>
 <p>So is <strong><em>this</em></strong> word.</p>
diff --git a/tests/html-reader.native b/tests/html-reader.native
index a6a3ab177..8fbecf34f 100644
--- a/tests/html-reader.native
+++ b/tests/html-reader.native
@@ -186,6 +186,7 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl
 ,Header 1 ("",[],[]) [Str "Inline",Space,Str "Markup"]
 ,Para [Str "This",Space,Str "is",Space,Emph [Str "emphasized"],Str ",",Space,Str "and",Space,Str "so",Space,Emph [Str "is",Space,Str "this"],Str "."]
 ,Para [Str "This",Space,Str "is",Space,Strong [Str "strong"],Str ",",Space,Str "and",Space,Str "so",Space,Strong [Str "is",Space,Str "this"],Str "."]
+,Para [Str "Empty",Space,Strong [],Space,Str "and",Space,Emph [],Str "."]
 ,Para [Str "An",Space,Emph [Link [Str "emphasized",Space,Str "link"] ("/url","")],Str "."]
 ,Para [Strong [Emph [Str "This",Space,Str "is",Space,Str "strong",Space,Str "and",Space,Str "em."]]]
 ,Para [Str "So",Space,Str "is",Space,Strong [Emph [Str "this"]],Space,Str "word."]