aboutsummaryrefslogtreecommitdiff
path: root/src/Tests
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-12-05 21:13:06 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-12-05 21:13:06 -0800
commite021819ade4ca255ca3b653ea92fa507dee78407 (patch)
treeca3ba6836d371240186c2dd36fe3207b9d3c6f60 /src/Tests
parentd34f85613a7bf32283abaff73965cf8a0436ea4f (diff)
downloadpandoc-e021819ade4ca255ca3b653ea92fa507dee78407.tar.gz
Fixed tests for escapes in links.
Diffstat (limited to 'src/Tests')
-rw-r--r--src/Tests/Readers/Markdown.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs
index 6739db263..d22cc308a 100644
--- a/src/Tests/Readers/Markdown.hs
+++ b/src/Tests/Readers/Markdown.hs
@@ -47,16 +47,16 @@ tests = [ testGroup "inline code"
, testGroup "backslash escapes"
[ "in URL" =:
"[hi](/there\\))"
- =?> para (link "hi" "/there)" "")
+ =?> para (link "/there)" "" "hi")
, "in title" =:
"[hi](/there \"a\\\"a)"
- =?> para (link "hi" "/there" "a\"a")
+ =?> para (link "/there" "a\"a" "hi")
, "in reference link title" =:
"[hi]\n\n[hi]: /there (a\\)a)"
- =?> para (link "hi" "/there" "a)a")
+ =?> para (link "/there" "a)a" "hi")
, "in reference link URL" =:
"[hi]\n\n[hi]: /there\\."
- =?> para (link "hi" "/there." "")
+ =?> para (link "/there." "" "hi")
]
, testGroup "smart punctuation"
[ test markdownSmart "quote before ellipses"