From bc115ffc2dbaf4f8154193b5c0726964d9d6beba Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Fri, 26 Sep 2014 13:32:08 +0400
Subject: Fix 'Ext_lists_without_preceding_blankline' bug.

  * Fixes #1636.
  * Adds a test.
---
 tests/Tests/Readers/Markdown.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'tests/Tests/Readers')

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"] ]
           ]
         ]
-- 
cgit v1.2.3