Added failing test case for issue #312.

2011-12-01 19:47:25 -08:00 · 2011-12-01 19:47:25 -08:00 · 7a09873a0b
commit 7a09873a0b
parent 8137f07cea
1 changed files with 5 additions and 0 deletions
--- a/src/Tests/Readers/Markdown.hs
+++ b/src/Tests/Readers/Markdown.hs
@ -44,6 +44,11 @@ tests = [ testGroup "inline code"
            "`*` {.haskell .special x=\"7\"}"
            =?> para (codeWith ("",["haskell","special"],[("x","7")]) "*")
          ]
+        , testGroup "backslash escapes"
+          [ "in URL" =:
+            "[hi](/there\\))"
+            =?> para (link "hi" "/there)" "")
+          ]
        , testGroup "smart punctuation"
          [ test markdownSmart "quote before ellipses"
            ("'...hi'"