diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-10 23:38:30 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-10 23:38:30 +0300 |
| commit | 782ab73aa350ca323b0b7786770e37d1a932f9a8 (patch) | |
| tree | 0312c568dafa224933365b342b1dd62354fb30fe /test/Tests/Writers/Muse.hs | |
| parent | 72878adc63f6a1e5178734aab499c3cd10df6016 (diff) | |
| download | pandoc-782ab73aa350ca323b0b7786770e37d1a932f9a8.tar.gz | |
Muse writer: escape > less often
> should be escaped only when it can start verse, i.e., at the beginning of the line.
Diffstat (limited to 'test/Tests/Writers/Muse.hs')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 5d84150e1..41c846b1b 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -264,6 +264,7 @@ tests = [ testGroup "block elements" , "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>" + , "escape > in the beginning of line" =: para (text "> foo bar") =?> "<verbatim></verbatim>> foo bar" , testGroup "tables" [ "table without header" =: let rows = [[para $ text "Para 1.1", para $ text "Para 1.2"] |