diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-01-16 16:22:04 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-01-16 16:22:04 -0800 |
| commit | c841bcf3b01548b2f9b462b39d8edda4c10be534 (patch) | |
| tree | 2cee47196d6ce520cb0899bd8283c4a18f918369 /test | |
| parent | 6efd3460a776620fdb93812daa4f6831e6c332ce (diff) | |
| download | pandoc-c841bcf3b01548b2f9b462b39d8edda4c10be534.tar.gz | |
Revert "Markdown reader: support GitHub wiki's internal links (#2923) (#6458)"
This reverts commit 6efd3460a776620fdb93812daa4f6831e6c332ce.
Since this extension is designed to be used with
GitHub markdown (gfm), we need to implement the parser
as a commonmark extension (commonmark-extensions),
rather than in pandoc's markdown reader. When that is
done, we can add it here.
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Markdown.hs | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/test/Tests/Readers/Markdown.hs b/test/Tests/Readers/Markdown.hs index a2abcb143..18f909583 100644 --- a/test/Tests/Readers/Markdown.hs +++ b/test/Tests/Readers/Markdown.hs @@ -307,36 +307,6 @@ tests = [ testGroup "inline code" "[https://example.org(](url)" =?> para (link "url" "" (text "https://example.org(")) ] - , testGroup "Github wiki links" - [ test markdownGH "autolink" $ - "[[https://example.org]]" =?> - para (link "https://example.org" "wikilink" (text "https://example.org")) - , test markdownGH "link with title" $ - "[[title|https://example.org]]" =?> - para (link "https://example.org" "wikilink" (text "title")) - , test markdownGH "bad link with title" $ - "[[title|random string]]" =?> - para (link "random-string" "wikilink" (text "title")) - , test markdownGH "autolink not being a link" $ - "[[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" (text "Name of ]page")) - , test markdownGH "formatting (strong and emphasis) should not be interpreted" $ - "[[***a**b **c**d*|https://example.org]]" =?> - para (text "[[" <> emph (strong (str "a") <> str "b" <> space - <> strong (str "c") <> str "d") <> text "|https://example.org]]") - , test markdownGH "inlined code should not make a link" $ - "[[ti`|`le|https://example.org]]" =?> - para (text "[[ti" <> code "|" <> text "le|https://example.org]]") - , test markdownGH "link with title and a cut should take the middle part as link" $ - "[[tit|le|https://example.org]]" =?> - para (link "le" "wikilink" (text "tit")) - , test markdownGH "link with inline start should be a link" $ - "[[t`i*t_le|https://example.org]]" =?> - para (link "https://example.org" "wikilink" (text "t`i*t_le")) - ] , testGroup "Headers" [ "blank line before header" =: "\n# Header\n" |