aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Writers/Docbook.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests/Writers/Docbook.hs')
-rw-r--r--test/Tests/Writers/Docbook.hs14
1 files changed, 14 insertions, 0 deletions
diff --git a/test/Tests/Writers/Docbook.hs b/test/Tests/Writers/Docbook.hs
index 1d53dcfe7..621c1280b 100644
--- a/test/Tests/Writers/Docbook.hs
+++ b/test/Tests/Writers/Docbook.hs
@@ -93,6 +93,20 @@ tests = [ testGroup "line blocks"
, " </para>"
, "</attention>"
]
+ , "admonition-with-title-in-para" =:
+ divWith ("foo", ["attention"], []) (
+ divWith ("foo", ["title"], [])
+ (para "This is title") <>
+ para "This is a test"
+ )
+ =?> unlines
+ [ "<attention id=\"foo\">"
+ , " <title>This is title</title>"
+ , " <para>"
+ , " This is a test"
+ , " </para>"
+ , "</attention>"
+ ]
, "single-child" =:
divWith ("foo", [], []) (para "This is a test")
=?> unlines