diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 19:07:17 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-05 19:07:17 -0800 |
| commit | b2c58c11b20abc350c560bb4e7645194c6cb2801 (patch) | |
| tree | f5fd9ce0dd18442ce1a956f8aa57ccc5ffc20829 /src | |
| parent | 8306f6e9c6a0f2e35346f650fd782894e8996470 (diff) | |
| download | pandoc-b2c58c11b20abc350c560bb4e7645194c6cb2801.tar.gz | |
Added more failing tests relating to issue #312.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Tests/Readers/Markdown.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index 40779778a..6739db263 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -50,7 +50,13 @@ tests = [ testGroup "inline code" =?> para (link "hi" "/there)" "") , "in title" =: "[hi](/there \"a\\\"a)" - =?> para (link "hi" "/there" "a\"a") + =?> para (link "hi" "/there" "a\"a") + , "in reference link title" =: + "[hi]\n\n[hi]: /there (a\\)a)" + =?> para (link "hi" "/there" "a)a") + , "in reference link URL" =: + "[hi]\n\n[hi]: /there\\." + =?> para (link "hi" "/there." "") ] , testGroup "smart punctuation" [ test markdownSmart "quote before ellipses" |