tests/testthat/test_Rd_df.R

In Genentech/covtracer: Contextualizing Tests

test_that("Rd_df can build a documentation data.frame from package path", {
  expect_silent(rddf <- Rd_df(system.file("examplepkg", package = "covtracer")))
  expect_true(any(rddf$is_exported))
  expect_true(any(!rddf$is_exported))
  expect_true(any(rddf$doctype == "class"))
  expect_true(any(rddf$doctype == "data"))
  expect_true(any(grepl("names,.*-method", rddf$alias)))
  expect_true(all(grepl("\\.Rd$", rddf$file)))
})