diff options
-rw-r--r-- | tests/html-reader.html | 1 | ||||
-rw-r--r-- | tests/html-reader.native | 1 |
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."] |