diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-11-30 17:59:28 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-11-30 17:59:28 -0800 |
commit | 7f09c1834da9f87e7715f5c9dc52f4b730da8f3f (patch) | |
tree | dd9b1dcf97b94b45e3cd182af60f56ec2bd6a731 /tests/Tests | |
parent | 7aa4d519686af1416eaf3b380f8584ab89569c41 (diff) | |
download | pandoc-7f09c1834da9f87e7715f5c9dc52f4b730da8f3f.tar.gz |
Markdown writer: Fix rendering of tight sublists.
E.g.
- foo
- bar
- baz
Previously a spurious blank line was included before the last item.
Closes #1050.
Diffstat (limited to 'tests/Tests')
-rw-r--r-- | tests/Tests/Writers/Markdown.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/Tests/Writers/Markdown.hs b/tests/Tests/Writers/Markdown.hs index 99b85dfb7..c2a8f5903 100644 --- a/tests/Tests/Writers/Markdown.hs +++ b/tests/Tests/Writers/Markdown.hs @@ -31,4 +31,8 @@ tests :: [Test] tests = [ "indented code after list" =: (orderedList [ para "one" <> para "two" ] <> codeBlock "test") =?> "1. one\n\n two\n\n<!-- -->\n\n test" + , "list with tight sublist" + =: bulletList [ plain "foo" <> bulletList [ plain "bar" ], + plain "baz" ] + =?> "- foo\n - bar\n- baz\n" ] |