tests/testthat/test-renv.R

In cynkra/cynkrathis: Simplify Project Scaffolding and Common 'renv' Related Tasks

test_that("renv_install_local works", {
  tmp <- tempdir()
  options(usethis.quiet = TRUE)
  usethis::create_package(tmp, open = FALSE)

  cap <- capture.output(suppressMessages(renv_install_local(tmp)))
  rm(cap)

  renv_local <- renv::paths$root()

  out <- list.files(renv_local, pattern = basename(tmp), full.names = TRUE)
  expect_match(
    list.files(renv_local, pattern = basename(tmp)),
    basename(tmp)
  )
  unlink(out, force = TRUE)
})