diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 14:24:50 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 14:24:50 +0300 |
| commit | c3fbc492c8795c0cd92f29f69d01819e8dccec93 (patch) | |
| tree | 939436e3eb9031f6cca0654caecf2963f265f3c5 /test/Tests/Readers/Muse.hs | |
| parent | f0a029ac51affeb56cba88f76375a98293b2ea7c (diff) | |
| download | pandoc-c3fbc492c8795c0cd92f29f69d01819e8dccec93.tar.gz | |
Muse reader: require closing tag to have the same indentation as opening
Diffstat (limited to 'test/Tests/Readers/Muse.hs')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index f64927ff1..f961083ef 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -1242,5 +1242,23 @@ tests = , " </verse>" ] =?> bulletList [ para "<quote>" <> lineBlock [ "</quote>" ] ] + + -- Allowing indented closing tags is dangerous, + -- as they may terminate lists + , "No indented closing tags" =: + T.unlines + [ "<quote>" + , "" + , " - Foo" + , "" + , " </quote>" + , "" + , " bar" + , "" + , " <verse>" + , " </quote>" + , " </verse>" + ] =?> + para "<quote>" <> bulletList [ para "Foo" <> para "</quote>" <> para "bar" <> lineBlock [ "</quote>" ] ] ] ] |