aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-02-12 04:25:13 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-02-12 04:57:56 +0300
commit3480a8acc24c650bc208b2e6cc8f1d5ac2e04aa5 (patch)
treece225b2d5e08fd3d833deaaf4cf96dbdfb7dce3a /test
parent30cd636c21d70ce07ffa03d6c0b452fa569724cb (diff)
downloadpandoc-3480a8acc24c650bc208b2e6cc8f1d5ac2e04aa5.tar.gz
Muse reader: paragraph indentation does not indicate nested quote
Muse allows indentation to indicate quotation or alignment, but only on the top level, not within a <quote> or list. This patch also simplifies the code by removing museInQuote and museInList fields from the state structure. Headers and indented paragraphs are attempted to be parsed only at the topmost level, instead of aborting parsing with guards.
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 520de0eb7..60059df77 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -252,6 +252,12 @@ tests =
, "Quote" =:
" This is a quotation\n" =?>
blockQuote (para "This is a quotation")
+ , "Indentation does not indicate quote inside quote tag" =:
+ T.unlines [ "<quote>"
+ , " Not a nested quote"
+ , "</quote>"
+ ] =?>
+ blockQuote (para "Not a nested quote")
, "Multiline quote" =:
T.unlines [ " This is a quotation"
, " with a continuation"