# Sys.setenv("RSTUDIO_PANDOC" = "") # rmarkdown::find_pandoc(cache = FALSE) test_that("common across multiple versions", { skip_if_not_installed("rmarkdown") skip_if_not(rmarkdown::pandoc_version() > "2.0.0") verify_output(test_path("test-downlit-md.txt"), { "Bare code" cat(downlit_md_string("`base::t`")) "No transforms" cat(downlit_md_string("## `base::t`")) cat(downlit_md_string("[`base::t`](http://google.com)")) "Nested" cat(downlit_md_string("*`base::t`*")) cat(downlit_md_string("`base::t`")) cat(downlit_md_string("1. `base::t`")) "Markdown extensions not in GFM" cat(downlit_md_string("| `base::t`", format = "markdown")) md <- brio::read_lines(test_path("markdown-definition.md")) cat(downlit_md_string(md, "markdown")) }) }) test_that("pandoc AST v1.20", { skip_if_not_installed("rmarkdown") skip_if_not(rmarkdown::pandoc_version() > "2.0.0") skip_if_not(rmarkdown::pandoc_version() < "2.10") verify_output(test_path("test-downlit-md-v20.txt"), { cat(downlit_md_string("* `base::t`")) cat(downlit_md_string("```\nbase::t(1)\n```")) cat(downlit_md_string(brio::read_lines(test_path("markdown-table.md")))) }) }) test_that("pandoc AST v1.21", { skip_if_not_installed("rmarkdown") skip_if_not(rmarkdown::pandoc_version() >= "2.10") skip_if_not(rmarkdown::pandoc_version() < "2.11") verify_output(test_path("test-downlit-md-v21.txt"), { cat(downlit_md_string("* `base::t`")) cat(downlit_md_string("```\nbase::t(1)\n```")) cat(downlit_md_string(brio::read_lines(test_path("markdown-table.md")))) }) }) test_that("Special package string gets linked", { # needed for eof setting on windows skip_if_not_installed("rmarkdown") skip_if_not(rmarkdown::pandoc_version() > "2.0.0") expect_equal( downlit_md_string("`{downlit}`"), "[downlit](https://downlit.r-lib.org/)\n" ) expect_equal( downlit_md_string("`{thisisrealltnotapackagename}`"), "`{thisisrealltnotapackagename}`\n" ) })