Added failing test for escape in markdown link title.

2011-12-04 22:37:28 -08:00 · 2011-12-04 22:37:28 -08:00 · a4364b3784
commit a4364b3784
parent e53e538524
1 changed files with 3 additions and 0 deletions
--- a/src/Tests/Readers/Markdown.hs
+++ b/src/Tests/Readers/Markdown.hs
@ -48,6 +48,9 @@ tests = [ testGroup "inline code"
          [ "in URL" =:
            "[hi](/there\\))"
            =?> para (link "hi" "/there)" "")
+          , "in title" =:
+            "[hi](/there \"a\\\"a)"
+            =?> para (link "hi" "/there" "a\"a") 
          ]
        , testGroup "smart punctuation"
          [ test markdownSmart "quote before ellipses"