diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 00:56:52 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-02 01:01:50 +0300 |
| commit | 177c5120a5d13c7019d99a3b79d3cc0981a00214 (patch) | |
| tree | dc298ab7d304a60e8c8cbbdef27425324ec6a17a /test/Tests | |
| parent | e881214bf9a3cc990110ae3a23aec1d6b4076f66 (diff) | |
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.hs | 11 |
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") ] ] |