@@ -93,6 +93,20 @@ tests = [ testGroup "line blocks"
9393 , " </para>"
9494 , "</attention>"
9595 ]
96+ , "admonition-with-title-in-para" =:
97+ divWith ("foo", ["attention"], []) (
98+ divWith ("foo", ["title"], [])
99+ (para "This is title") <>
100+ para "This is a test"
101+ )
102+ =?> unlines
103+ [ "<attention id=\"foo\">"
104+ , " <title>This is title</title>"
105+ , " <para>"
106+ , " This is a test"
107+ , " </para>"
108+ , "</attention>"
109+ ]
96110 , "single-child" =:
97111 divWith ("foo", [], []) (para "This is a test")
98112 =?> unlines