diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-04-04 14:27:27 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-04-04 14:27:27 +0200 |
| commit | c3f539364aea5065be1d6774cd62f40a1918e773 (patch) | |
| tree | 250584088bdfc141e1f1844c32779ab33800c08b /test/Tests/Readers | |
| parent | d867cac8caa0171fcd32589a6827a69826c1b087 (diff) | |
| download | pandoc-c3f539364aea5065be1d6774cd62f40a1918e773.tar.gz | |
Jira: support citations, attachment links, and user links
Closes: #6231
Closes: #6238
Closes: #6239
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/Jira.hs | 36 |
1 files changed, 33 insertions, 3 deletions
diff --git a/test/Tests/Readers/Jira.hs b/test/Tests/Readers/Jira.hs index 8e37968eb..30f55585b 100644 --- a/test/Tests/Readers/Jira.hs +++ b/test/Tests/Readers/Jira.hs @@ -111,6 +111,10 @@ tests = "HCO ~3~^-^" =?> para ("HCO " <> subscript "3" <> superscript "-") + , "citation" =: + "Et tu, Brute? ??Caesar??" =?> + para ("Et tu, Brute? — " <> emph "Caesar") + , "color" =: "This is {color:red}red{color}." =?> para ("This is " <> spanWith ("", [], [("color", "red")]) "red" <> ".") @@ -123,9 +127,35 @@ tests = "first\nsecond" =?> para ("first" <> linebreak <> "second") - , "link" =: - "[Example|https://example.org]" =?> - para (link "https://example.org" "" "Example") + , testGroup "links" + [ "external" =: + "[Example|https://example.org]" =?> + para (link "https://example.org" "" "Example") + + , "email" =: + "[mailto:me@example.org]" =?> + para (link "mailto:me@example.org" "" "me@example.org") + + , "email with description" =: + "[email|mailto:me@example.org]" =?> + para (link "mailto:me@example.org" "" "email") + + , "attachment" =: + "[^example.txt]" =?> + para (linkWith ("", ["attachment"], []) "example.txt" "" "example.txt") + + , "attachment with description" =: + "[an example^example.txt]" =?> + para (linkWith ("", ["attachment"], []) "example.txt" "" "an example") + + , "user" =: + "[~johndoe]" =?> + para (linkWith ("", ["user-account"], []) "~johndoe" "" "~johndoe") + + , "user with description" =: + "[John Doe|~johndoe]" =?> + para (linkWith ("", ["user-account"], []) "~johndoe" "" "John Doe") + ] , "image" =: "!https://example.com/image.jpg!" =?> |