diff options
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Writers/Docbook.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test/Tests/Writers/Docbook.hs b/test/Tests/Writers/Docbook.hs index 46203eeae..f517f803a 100644 --- a/test/Tests/Writers/Docbook.hs +++ b/test/Tests/Writers/Docbook.hs @@ -83,32 +83,32 @@ tests = [ testGroup "line blocks" , "</warning>" ] , "admonition-with-title" =: - divWith ("foo", ["attention"], []) ( + divWith ("foo", ["note"], []) ( divWith ("foo", ["title"], []) (plain (text "This is title")) <> para "This is a test" ) =?> unlines - [ "<attention id=\"foo\">" + [ "<note id=\"foo\">" , " <title>This is title</title>" , " <para>" , " This is a test" , " </para>" - , "</attention>" + , "</note>" ] , "admonition-with-title-in-para" =: - divWith ("foo", ["attention"], []) ( + divWith ("foo", ["note"], []) ( divWith ("foo", ["title"], []) (para "This is title") <> para "This is a test" ) =?> unlines - [ "<attention id=\"foo\">" + [ "<note id=\"foo\">" , " <title>This is title</title>" , " <para>" , " This is a test" , " </para>" - , "</attention>" + , "</note>" ] , "single-child" =: divWith ("foo", [], []) (para "This is a test") |