diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-11-12 09:05:29 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-11-12 09:05:29 -0800 |
commit | 43c1978faebe17add5541b0a8e025b2e8d5c511a (patch) | |
tree | 636a9cbd5d6b6a7c188597c0953246e8653347f6 /tests/Tests | |
parent | 1cd65344b2c9fd1f905c52dc729ae17d03464322 (diff) | |
parent | bc115ffc2dbaf4f8154193b5c0726964d9d6beba (diff) | |
download | pandoc-43c1978faebe17add5541b0a8e025b2e8d5c511a.tar.gz |
Merge pull request #1645 from neongreen/issue1636
Fix 'Ext_lists_without_preceding_blankline' bug.
Diffstat (limited to 'tests/Tests')
-rw-r--r-- | tests/Tests/Readers/Markdown.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index b45d94032..a7e322306 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -20,6 +20,9 @@ markdownCDL :: String -> Pandoc markdownCDL = readMarkdown def { readerExtensions = Set.insert Ext_compact_definition_lists $ readerExtensions def } +markdownGH :: String -> Pandoc +markdownGH = readMarkdown def { readerExtensions = githubMarkdownExtensions } + infix 4 =: (=:) :: ToString c => String -> (String, c) -> Test @@ -271,5 +274,14 @@ tests = [ testGroup "inline code" plain (text "if this button exists") <> rawBlock "html" "</button>" <> divWith nullAttr (para $ text "with this div too.")] + , test markdownGH "issue #1636" $ + unlines [ "* a" + , "* b" + , "* c" + , " * d" ] + =?> + bulletList [ plain "a" + , plain "b" + , plain "c" <> bulletList [plain "d"] ] ] ] |