@@ -44,6 +44,11 @@ tests = [ testGroup "inline code"
4444 "`*` {.haskell .special x=\"7\"}"
4545 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
4646 ]
47+ , testGroup "backslash escapes"
48+ [ "in URL" =:
49+ "[hi](/there\\))"
50+ =?> para (link "hi" "/there)" "")
51+ ]
4752 , testGroup "smart punctuation"
4853 [ test markdownSmart "quote before ellipses"
4954 ("'...hi'"