@@ -50,7 +50,13 @@ tests = [ testGroup "inline code"
5050 =?> para (link "hi" "/there)" "")
5151 , "in title" =:
5252 "[hi](/there \"a\\\"a)"
53− =?> para (link "hi" "/there" "a\"a")
53+ =?> para (link "hi" "/there" "a\"a")
54+ , "in reference link title" =:
55+ "[hi]\n\n[hi]: /there (a\\)a)"
56+ =?> para (link "hi" "/there" "a)a")
57+ , "in reference link URL" =:
58+ "[hi]\n\n[hi]: /there\\."
59+ =?> para (link "hi" "/there." "")
5460 ]
5561 , testGroup "smart punctuation"
5662 [ test markdownSmart "quote before ellipses"