diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 03:50:59 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 04:15:32 +0300 |
| commit | c899b4e89dcd61f91f7383e2a81a13ef0da080b8 (patch) | |
| tree | fefc02dd7bfacefb89be6479354c7acd4a13c4e4 /test/Tests/Writers | |
| parent | ce6042fb20fb032da8adf0779e240590f304e243 (diff) | |
| download | pandoc-c899b4e89dcd61f91f7383e2a81a13ef0da080b8.tar.gz | |
Muse writer: escape list markers in the beginning of notes
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 776884760..7821f4e96 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -348,6 +348,12 @@ tests = [ testGroup "block elements" , "" , " <verbatim></verbatim>- bar" ] + , "escape - inside a note" =: + note (para (text "- foo")) =?> + unlines [ "[1]" + , "" + , "[1] <verbatim></verbatim>- foo" + ] , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo" , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar" , "escape ; after linebreak" =: text "foo" <> linebreak <> text "; bar" =?> "foo<br>\n<verbatim></verbatim>; bar" |