tests/testthat/test-function_review.R

In thisisnic/docreview: Opinionated Documentation Checking

test_that("function_review works as expected", {
  fr <- function_review(system.file("testpkg", package = "docreview", mustWork = TRUE), checks = get_config()$functions)
  expect_equal(fr$failures, 1)
  expect_equal(fr$warnings, 0)
  expect_equal(fr$details$exports_examples, c(add = TRUE, deduct = FALSE))
})