1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
context("test-extensions")
test_that("list extensions", {
expect_equal(list_extensions(), c("table", "strikethrough", "autolink", "tagfilter", "tasklist"))
})
test_that("strikethrough", {
md <- "~Hello~ ~~world~~!"
expect_equal(markdown_html(md), "<p>~Hello~ ~~world~~!</p>\n")
expect_equal(markdown_html(md, extensions = "strikethrough"), "<p>~Hello~ <del>world</del>!</p>\n")
expect_equal(markdown_latex(md), "\\textasciitilde{}Hello\\textasciitilde{} \\textasciitilde{}\\textasciitilde{}world\\textasciitilde{}\\textasciitilde{}!\n")
expect_equal(markdown_latex(md, extensions = "strikethrough"), "\\textasciitilde{}Hello\\textasciitilde{} \\sout{world}!\n")
expect_equal(markdown_man(md), ".PP\n~Hello~ ~~world~~!\n")
expect_equal(markdown_man(md, extensions = "strikethrough"), ".PP\n~Hello~ \n.ST \"world\"\n!\n")
library(xml2)
doc1 <- xml_ns_strip(read_xml(markdown_xml(md)))
doc2 <- xml_ns_strip(read_xml(markdown_xml(md, extensions = "strikethrough")))
expect_length(xml_find_all(doc1, "//strikethrough"), 0)
expect_length(xml_find_all(doc2, "//strikethrough"), 1)
})
test_that("autolink", {
md <- "Visit: https://www.test.com"
expect_match(markdown_html(md, extensions = FALSE), "^((?!href).)*$", perl = TRUE)
expect_match(markdown_html(md, extensions = TRUE), "href")
expect_equal(markdown_latex(md, extensions = FALSE), "Visit: https://www.test.com\n")
expect_equal(markdown_latex(md, extensions = TRUE), "Visit: \\url{https://www.test.com}\n")
expect_equal(markdown_man(md, extensions = FALSE), ".PP\nVisit: https://www.test.com\n")
expect_equal(markdown_man(md, extensions = TRUE), ".PP\nVisit: https://www.test.com (https://www.test.com)\n")
library(xml2)
doc1 <- xml_ns_strip(read_xml(markdown_xml(md, extensions = FALSE)))
doc2 <- xml_ns_strip(read_xml(markdown_xml(md, extensions = TRUE)))
expect_length(xml_find_all(doc1, "//link"), 0)
expect_length(xml_find_all(doc2, "//link"), 1)
})
test_that("footnotes", {
# a single footnote
md <- "Hello[^1]\n\n[^1]: A footnote."
expect_equal(markdown_latex(md, footnotes = FALSE), "Hello{[}\\^{}1{]}\n\n{[}\\^{}1{]}: A footnote.\n")
expect_equal(markdown_latex(md, footnotes = TRUE), "Hello\\footnotemark[1]\n\n\\footnotetext[1]{A footnote.\n\n}\n")
# multiple footnotes
md <- "Hello[^1] World[^foo-2]\n\n[^1]: A footnote.\n\n[^foo-2]: Footnote ID does not have to be a number."
expect_equal(markdown_latex(md, footnotes = FALSE), "Hello{[}\\^{}1{]} World{[}\\^{}foo-2{]}\n\n{[}\\^{}1{]}: A footnote.\n\n{[}\\^{}foo-2{]}: Footnote ID does not have to be a number.\n")
expect_equal(markdown_latex(md, footnotes = TRUE), "Hello\\footnotemark[1] World\\footnotemark[foo-2]\n\n\\footnotetext[1]{A footnote.\n\n}\\footnotetext[foo-2]{Footnote ID does not have to be a number.\n\n}\n")
})
test_that('tagefilter', {
input <- "<title><style></style></title>\n"
expect_equal(input, markdown_html(input))
expect_equal(markdown_html(input, extensions = "tagfilter"), gsub("<", '<', input))
})
test_that("embedded images do not get filtered", {
md <- '<img src="data:image/png;base64,foobar" />\n'
expect_equal(md, markdown_html(md))
expect_equal(md, markdown_commonmark(md))
})
|
