Nothing
tests/testthat/test-downlit-html.R
In downlit: Syntax Highlighting and Automatic Linking
test_that("can highlight html file", {
skip_if_not_installed("xml2")
# verify_output() seems to be generating the wrong line endings
skip_on_os("windows")
verify_output(test_path("test-downlit-html.txt"), {
out <- downlit_html_path(test_path("autolink.html"), tempfile())
cat(brio::read_lines(out), sep = "\n")
})
})
test_that("highlight all pre inside div.downlit", {
skip_if_not_installed("xml2")
html <- xml2::read_xml("
<body>
<div class = 'downlit'>
<pre>1 + 2</pre>
<pre>3 + 4</pre>
</div>
<pre>No hightlight</pre>
</body>"
)
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
})
test_that("special package string gets linked", {
skip_if_not_installed("xml2")
html <- xml2::read_xml("<p>before <code>{downlit}</code> after</p>")
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
# But only when it's a real package
html <- xml2::read_xml("<p>before <code>{notapkg}</code> after</p>")
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
})
Try the downlit package in your browser
Any scripts or data that you put into this service are public.
downlit documentation built on June 22, 2024, 9:17 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("can highlight html file", {
skip_if_not_installed("xml2")
# verify_output() seems to be generating the wrong line endings
skip_on_os("windows")
verify_output(test_path("test-downlit-html.txt"), {
out <- downlit_html_path(test_path("autolink.html"), tempfile())
cat(brio::read_lines(out), sep = "\n")
})
})
test_that("highlight all pre inside div.downlit", {
skip_if_not_installed("xml2")
html <- xml2::read_xml("
<body>
<div class = 'downlit'>
<pre>1 + 2</pre>
<pre>3 + 4</pre>
</div>
<pre>No hightlight</pre>
</body>"
)
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
})
test_that("special package string gets linked", {
skip_if_not_installed("xml2")
html <- xml2::read_xml("<p>before <code>{downlit}</code> after</p>")
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
# But only when it's a real package
html <- xml2::read_xml("<p>before <code>{notapkg}</code> after</p>")
downlit_html_node(html)
expect_snapshot_output(show_xml(html))
})
Try the downlit package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.