summaryrefslogtreecommitdiff
path: root/tests/Tests
diff options
context:
space:
mode:
authorDaniele D'Orazio <daniele@develer.com>2016-10-26 12:18:58 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2016-10-26 12:18:58 +0200
commit78e4fbda51a243f96176be001af8e538fcbc33c8 (patch)
tree7b96d333cafae242cbe4ab329209dc3b6ec70762 /tests/Tests
parentc46ad7c8db5bb6a8c1666f60b21184f5b75bf3ab (diff)
Markdown Reader: add attributes for autolink (#3183)
Diffstat (limited to 'tests/Tests')
-rw-r--r--tests/Tests/Readers/Markdown.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs
index 9219b6930..739763e77 100644
--- a/tests/Tests/Readers/Markdown.hs
+++ b/tests/Tests/Readers/Markdown.hs
@@ -34,7 +34,10 @@ testBareLink (inp, ils) =
inp (inp, doc $ para ils)
autolink :: String -> Inlines
-autolink s = link s "" (str s)
+autolink = autolinkWith nullAttr
+
+autolinkWith :: Attr -> String -> Inlines
+autolinkWith attr s = linkWith attr s "" (str s)
bareLinkTests :: [(String, Inlines)]
bareLinkTests =
@@ -217,6 +220,12 @@ tests = [ testGroup "inline code"
, "a partial URL (#2277)" =:
"<www.boe.es/buscar/act.php?id=BOE-A-1996-8930#a66>" =?>
para (text "<www.boe.es/buscar/act.php?id=BOE-A-1996-8930#a66>")
+ , "with some attributes" =:
+ "<http://foo.bar>{#i .j .z k=v}" =?>
+ para (autolinkWith ("i", ["j", "z"], [("k", "v")]) "http://foo.bar")
+ , "with some attributes and spaces" =:
+ "<http://foo.bar> {#i .j .z k=v}" =?>
+ para (autolink "http://foo.bar" <> space <> text "{#i .j .z k=v}")
]
, testGroup "links"
[ "no autolink inside link" =: