aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-09-11 13:12:00 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-09-11 13:20:11 +0300
commite6ba0cc8936a0520bee96de6c2eb42973caa4058 (patch)
tree7b8063c704bb4255d6f8ad90c86c50e6f5b9802a /test/Tests/Writers
parent97f6833ee58667defbf4f203ebd69f5062232563 (diff)
downloadpandoc-e6ba0cc8936a0520bee96de6c2eb42973caa4058.tar.gz
HTML writer: always output <dt> element, even if it is empty
Fixes #4883
Diffstat (limited to 'test/Tests/Writers')
-rw-r--r--test/Tests/Writers/HTML.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/test/Tests/Writers/HTML.hs b/test/Tests/Writers/HTML.hs
index e771255b3..dfacda608 100644
--- a/test/Tests/Writers/HTML.hs
+++ b/test/Tests/Writers/HTML.hs
@@ -43,4 +43,9 @@ tests = [ testGroup "inline code"
image "/url" "title" ("my " <> emph "image")
=?> "<img src=\"/url\" title=\"title\" alt=\"my image\" />"
]
+ , testGroup "blocks"
+ [ "definition list with empty <dt>" =:
+ definitionList [(mempty, [para $ text "foo bar"])]
+ =?> "<dl><dt></dt><dd><p>foo bar</p></dd></dl>"
+ ]
]