tests/testthat/test-documentation_to_markdown.R

In Genentech/rd2markdown: Convert Rd Files into Markdown

test_that("documentation_to_markdown() works deafult params", {
  expect_identical(substr(rds[["example.Rd"]], 1, 25), "# Example documentation\n\n")
  expect_identical(substr(rds[["example2.Rd"]], 1, 24), "# Another example file\n\n")
})

test_that("documentation_to_markdown() works custom params", {
  rds <- documentation_to_markdown(rd_filepaths, fragments = "details")
  expect_match(rds[["example.Rd"]], "## Details\n\nSome details content\\s?")
  expect_identical(rds[["example2.Rd"]], "")
})