diff options
author | Artyom <yom@artyom.me> | 2014-09-26 13:32:08 +0400 |
---|---|---|
committer | Artyom <yom@artyom.me> | 2014-09-26 13:32:08 +0400 |
commit | bc115ffc2dbaf4f8154193b5c0726964d9d6beba (patch) | |
tree | a0afb9f39aa44aac3f11f6108b3779bd4cc29175 /tests/Tests/Readers | |
parent | 0fbe7df81877911000dff14ac493fd837f9eb718 (diff) | |
download | pandoc-bc115ffc2dbaf4f8154193b5c0726964d9d6beba.tar.gz |
Fix 'Ext_lists_without_preceding_blankline' bug.
* Fixes #1636.
* Adds a test.
Diffstat (limited to 'tests/Tests/Readers')
-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"] ] ] ] |