@@ -50,7 +50,13 @@ tests = [ testGroup "inline code"
50 =?> para (link "hi" "/there)" "")
50 =?> para (link "hi" "/there)" "")
51 , "in title" =:
51 , "in title" =:
52 "[hi](/there \"a\\\"a)"
52 "[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." "")
55 , testGroup "smart punctuation"
61 , testGroup "smart punctuation"
56 [ test markdownSmart "quote before ellipses"
62 [ test markdownSmart "quote before ellipses"