tests/testthat/test-tibble.R

In r-lib/usethis: Automate Package and Project Setup

test_that("use_tibble() requires a package", {
  create_local_project()
  expect_usethis_error(use_tibble(), "not an R package")
})

test_that("use_tibble() Imports tibble", {
  create_local_package()

  withr::local_options(list(usethis.quiet = FALSE))
  local_roxygen_update_ns()
  local_check_installed()
  ui_silence(use_package_doc())
  local_check_fun_exists()

  expect_snapshot(
    use_tibble(),
    transform = scrub_testpkg
  )

  expect_match(proj_desc()$get("Imports"), "tibble")
})