diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 14:10:20 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 14:10:20 +0300 |
| commit | 1aac754359d44a96e30e96f61f38c58d6aea29b4 (patch) | |
| tree | 9690af530de277527e91bee775ef95639e11af59 /test/Tests | |
| parent | e6ba0cc8936a0520bee96de6c2eb42973caa4058 (diff) | |
| download | pandoc-1aac754359d44a96e30e96f61f38c58d6aea29b4.tar.gz | |
Muse writer: set envInsideBlock = True when rendering notes
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 4cb7618f3..614e9dbc6 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -363,6 +363,13 @@ tests = [ testGroup "block elements" , "" , "[1] <verbatim></verbatim>- foo" ] + , "escape - after softbreak in note" =: + note (para (str "foo" <> softbreak <> str "- bar")) =?> + unlines [ "[1]" + , "" + , "[1] foo" + , " <verbatim></verbatim>- bar" + ] , "escape ; to avoid accidental comments" =: text "; foo" =?> "<verbatim></verbatim>; foo" , "escape strings starting with ; and space" =: str "; foo" =?> "<verbatim></verbatim>; foo" , "escape ; after softbreak" =: text "foo" <> softbreak <> text "; bar" =?> "foo\n<verbatim></verbatim>; bar" |