diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-02-13 22:20:03 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-02-13 22:20:03 -0800 |
| commit | a5b691a77e6cf250b1e82a5e6c5a4514e5fb1b6e (patch) | |
| tree | 56a579d12e6c897205be166dad7b7ddeb1abde8f /test/Tests | |
| parent | 621d694e2cbd567e295a80e0941c62e625838ffb (diff) | |
Markdown reader: fix wikilinks extension to allow newlines in titles.
Closes #9454.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Tests/Readers/Markdown.hs b/test/Tests/Readers/Markdown.hs index 86c424d4b..001ca0207 100644 --- a/test/Tests/Readers/Markdown.hs +++ b/test/Tests/Readers/Markdown.hs @@ -321,10 +321,10 @@ tests = [ testGroup "inline code" para (link "random string" "wikilink" (str "title")) , test markdownGH "autolink not being a link" $ "[[Name of page]]" =?> - para (link "Name of page" "wikilink" (str "Name of page")) + para (link "Name of page" "wikilink" (text "Name of page")) , test markdownGH "autolink not being a link with a square bracket" $ "[[Name of ]page]]" =?> - para (link "Name of ]page" "wikilink" (str "Name of ]page")) + para (link "Name of ]page" "wikilink" (text "Name of ]page")) , test markdownGH "link with inline start should be a link" $ "[[t`i*t_le|https://example.org]]" =?> para (link "https://example.org" "wikilink" (str "t`i*t_le")) |