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 | |
| parent | e0025cf4f18e335917f57814a1854f85ce1b6236 (diff) | |
Muse writer: indent lists inside <quote> with at least one space (#3795)
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 11 | ||||
| -rw-r--r-- | test/writer.muse | 6 |
2 files changed, 14 insertions, 3 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" =: diff --git a/test/writer.muse b/test/writer.muse index 41d1c9a5b..fda025812 100644 --- a/test/writer.muse +++ b/test/writer.muse @@ -65,8 +65,8 @@ sub status { A list: -1. item one -2. item two + 1. item one + 2. item two Nested block quotes: @@ -281,7 +281,7 @@ Multiple blocks with italics: </example> <quote> -orange block quote + orange block quote </quote> Multiple definitions, tight: |