diff options
| -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" |