aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-03-02 00:56:52 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-03-02 01:01:50 +0300
commit177c5120a5d13c7019d99a3b79d3cc0981a00214 (patch)
treedc298ab7d304a60e8c8cbbdef27425324ec6a17a /test/Tests
parente881214bf9a3cc990110ae3a23aec1d6b4076f66 (diff)
downloadpandoc-177c5120a5d13c7019d99a3b79d3cc0981a00214.tar.gz
Muse reader: do not consume whitespace while looking for closing end tag
Fix for a bug caught by round-trip test.
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Muse.hs11
1 files changed, 11 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 1a8378b06..f326b39d4 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -1208,5 +1208,16 @@ tests =
, para "Second"
, para "Third"
])
+ -- Regression test for a bug caught by round-trip test
+ , "Do not consume whitespace while looking for end tag" =:
+ T.unlines
+ [ "<quote>"
+ , " - <quote>"
+ , " foo"
+ , " </quote>"
+ , " bar" -- Do not consume whitespace while looking for arbitraritly indented </quote>
+ , "</quote>"
+ ] =?>
+ blockQuote (bulletList [ blockQuote $ para "foo" ] <> para "bar")
]
]