@@ -44,6 +44,11 @@ tests = [ testGroup "inline code"
44 "`*` {.haskell .special x=\"7\"}"
44 "`*` {.haskell .special x=\"7\"}"
45 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
45 =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
47+ , testGroup "backslash escapes"
50+ =?> para (link "hi" "/there)" "")
47 , testGroup "smart punctuation"
52 , testGroup "smart punctuation"
48 [ test markdownSmart "quote before ellipses"
53 [ test markdownSmart "quote before ellipses"
49 ("'...hi'"
54 ("'...hi'"