From dd2b77d5900014ef865ba8a23ac0ad4acdc946b1 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 10 Aug 2008 23:26:32 +0000
Subject: Allow newline before URL in markdown link references.  Resolves Issue
 #81. Added tests for this issue in new "markdown-reader-more" tests. Changed
 RunTests.hs to run these tests.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1401 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 tests/RunTests.hs                 |  4 +++-
 tests/markdown-reader-more.native |  5 +++++
 tests/markdown-reader-more.txt    | 13 +++++++++++++
 3 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 tests/markdown-reader-more.native
 create mode 100644 tests/markdown-reader-more.txt

(limited to 'tests')

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