diff options
| author | Alexander <ilabdsf@gmail.com> | 2017-08-23 09:12:34 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-22 23:12:34 -0700 |
| commit | 5d74932578ddaa564eae88158bfb4c7f92dc7dd5 (patch) | |
| tree | b9213814558a55b4afaf08c1cdc91ab3d6ce5b5a /test/Tests/Readers | |
| parent | c7d4fd8cf13adb905a8185a7d2fb359e06481184 (diff) | |
Muse reader: avoid crashes on multiparagraph inline tags (#3866)
Test checks that behavior is consistent with Amusewiki
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index dac980c90..8d4ad0b15 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -60,6 +60,16 @@ tests = , "Tag soup" =: "foo <em> bar </strong>baz" =?> para "foo <em> bar </strong>baz" + -- Both inline tags must be within the same paragraph + , "No multiparagraph inline tags" =: + T.unlines [ "First line" + , "<em>Second line" + , "" + , "Fourth line</em>" + ] =?> + para "First line <em>Second line" <> + para "Fourth line</em>" + , "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break") , "Code" =: "=foo(bar)=" =?> para (code "foo(bar)") |