diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-07-21 11:04:13 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-07-21 10:04:13 +0200 |
| commit | 335a1c7f4867f7cd3575f07b5efa75712d59d1ac (patch) | |
| tree | 9849b9e1eb01d5d5eedfa60d32c4c7a336eb0fb8 /test | |
| parent | 7191fe1f29f2f8b45f9be7e0f8bc9ed889e431d2 (diff) | |
Muse reader: fix reading of lists inside tags (#3802)
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index fe0a59992..a069bb972 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -314,5 +314,33 @@ tests = , para "* Bar" ] ] + , "List inside a tag" =: + T.unlines + [ "<quote>" + , " 1. First" + , "" + , " 2. Second" + , "" + , " 3. Third" + , "</quote>" + ] =?> + blockQuote (orderedListWith (1, Decimal, Period) [ para "First" + , para "Second" + , para "Third" + ]) + -- Amusewiki requires block tags to be on separate lines, + -- but Emacs Muse allows them to be on the same line as contents. + , "List inside an inline tag" =: + T.unlines + [ "<quote> 1. First" + , "" + , " 2. Second" + , "" + , " 3. Third</quote>" + ] =?> + blockQuote (orderedListWith (1, Decimal, Period) [ para "First" + , para "Second" + , para "Third" + ]) ] ] |