From c3f539364aea5065be1d6774cd62f40a1918e773 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sat, 4 Apr 2020 14:27:27 +0200 Subject: Jira: support citations, attachment links, and user links Closes: #6231 Closes: #6238 Closes: #6239 --- test/Tests/Writers/Jira.hs | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'test/Tests/Writers') diff --git a/test/Tests/Writers/Jira.hs b/test/Tests/Writers/Jira.hs index 48626487e..57ed27360 100644 --- a/test/Tests/Writers/Jira.hs +++ b/test/Tests/Writers/Jira.hs @@ -28,5 +28,39 @@ tests = imageWith ("", [], [("align", "right"), ("height", "50")]) "image.png" "" mempty =?> "!image.png|align=right, height=50!" + + , testGroup "links" + [ "external link" =: + link "https://example.com/test.php" "" "test" =?> + "[test|https://example.com/test.php]" + + , "external link without description" =: + link "https://example.com/tmp.js" "" "https://example.com/tmp.js" =?> + "[https://example.com/tmp.js]" + + , "email link" =: + link "mailto:me@example.com" "" "Jane" =?> + "[Jane|mailto:me@example.com]" + + , "email link without description" =: + link "mailto:me@example.com" "" "me@example.com" =?> + "[mailto:me@example.com]" + + , "attachment link" =: + linkWith ("", ["attachment"], []) "foo.txt" "" "My file" =?> + "[My file^foo.txt]" + + , "attachment link without description" =: + linkWith ("", ["attachment"], []) "foo.txt" "" "foo.txt" =?> + "[^foo.txt]" + + , "user link" =: + linkWith ("", ["user-account"], []) "~johndoe" "" "John Doe" =?> + "[John Doe|~johndoe]" + + , "user link with user as description" =: + linkWith ("", ["user-account"], []) "~johndoe" "" "~johndoe" =?> + "[~johndoe]" + ] ] ] -- cgit v1.2.3