diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-05 19:48:39 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-05 19:49:09 +0300 |
| commit | 87dda2109d01098dcf41c01559d3e91e2627cd10 (patch) | |
| tree | c4214017ce275b1de10e894045010b1b28fb6398 /test/Tests/Writers | |
| parent | 16104881b34596b39e41d4fd47f3e3af68e575ac (diff) | |
| download | pandoc-87dda2109d01098dcf41c01559d3e91e2627cd10.tar.gz | |
Muse writer: escape horizontal rule only if at the beginning of the line
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 33ba2b1fb..115a00f83 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -259,7 +259,9 @@ tests = [ testGroup "block elements" ] ] , "horizontal rule" =: horizontalRule =?> "----" - , "escape horizontal rule" =: para (text "----") =?> "<verbatim>----</verbatim>" + , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----" + , "escape long horizontal rule" =: para (text "----------") =?> "<verbatim></verbatim>----------" + , "don't escape horizontal inside paragraph" =: para (text "foo ---- bar") =?> "foo ---- bar" , "escape nonbreaking space" =: para (text "~~") =?> "<verbatim>~~</verbatim>" , testGroup "tables" [ "table without header" =: |