diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-07-12 18:16:02 +0300 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-07-12 17:16:02 +0200 |
| commit | de117fbd9e32e890663eb831b47fd91fcd6419a0 (patch) | |
| tree | cc21f58c3c01ef2e4d2cda5c11d23de983be5086 /test/Tests/Writers | |
| parent | e0025cf4f18e335917f57814a1854f85ce1b6236 (diff) | |
| download | pandoc-de117fbd9e32e890663eb831b47fd91fcd6419a0.tar.gz | |
Muse writer: indent lists inside <quote> with at least one space (#3795)
Diffstat (limited to 'test/Tests/Writers')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index d83cc5c9b..ebe5d45cd 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -137,6 +137,17 @@ tests = [ testGroup "block elements" , " second inner definition :: second inner description" ] ] + -- Check that list is intended with one space even inside a quote + , "List inside block quote" =: blockQuote (orderedList [ plain $ text "first" + , plain $ text "second" + , plain $ text "third" + ]) + =?> unlines [ "<quote>" + , " 1. first" + , " 2. second" + , " 3. third" + , "</quote>" + ] ] , testGroup "headings" [ "normal heading" =: |