3 files changed, 21 insertions, 1 deletions
diff --git a/tests/RunTests.hs b/tests/RunTests.hs
index 69f008ac2..b0961a390 100644
--- a/tests/RunTests.hs
+++ b/tests/RunTests.hs
@@ -61,6 +61,8 @@ main = do
              "testsuite.txt" "testsuite.native"
   r7 <- runTest "markdown reader (tables)" ["-r", "markdown", "-w", "native"]
              "tables.txt" "tables.native"
+  r7a <- runTest "markdown reader (more)" ["-r", "markdown", "-w", "native"]
+             "markdown-reader-more.txt" "markdown-reader-more.native"
   r8 <- runTest "rst reader" ["-r", "rst", "-w", "native", "-s", "-S"]
              "rst-reader.rst" "rst-reader.native"
   r9 <- runTest "html reader" ["-r", "html", "-w", "native", "-s"]
@@ -69,7 +71,7 @@ main = do
              "latex-reader.latex" "latex-reader.native"
   r11 <- runTest "native reader" ["-r", "native", "-w", "native", "-s"]
              "testsuite.native" "testsuite.native"
-  let results = r1s ++ [r2, r3, r4, r5, r6, r7, r8, r9, r10, r11]
+  let results = r1s ++ [r2, r3, r4, r5, r6, r7, r7a, r8, r9, r10, r11]
   if all id results
      then do
        putStrLn "\nAll tests passed."
diff --git a/tests/markdown-reader-more.native b/tests/markdown-reader-more.native
new file mode 100644
index 000000000..7785f85fb
--- /dev/null
+++ b/tests/markdown-reader-more.native
@@ -0,0 +1,5 @@
+Pandoc (Meta [] [] "")
+[ Header 1 [Str "Additional",Space,Str "markdown",Space,Str "reader",Space,Str "tests"]
+, Header 2 [Str "Blank",Space,Str "line",Space,Str "before",Space,Str "URL",Space,Str "in",Space,Str "link",Space,Str "reference"]
+, Para [Link [Str "foo"] ("/url",""),Space,Str "and",Space,Link [Str "bar"] ("/url","title")] ]
+
diff --git a/tests/markdown-reader-more.txt b/tests/markdown-reader-more.txt
new file mode 100644
index 000000000..32f10d61c
--- /dev/null
+++ b/tests/markdown-reader-more.txt
@@ -0,0 +1,13 @@
+# Additional markdown reader tests
+
+## Blank line before URL in link reference
+
+[foo] and [bar]
+
+[foo]: 
+  /url
+
+[bar]:
+/url
+"title"
+