tests/testthat/test-install.R

In devtools: Tools to Make Developing R Packages Easier

show_headers <- function(lines) {
  lines <- cli::ansi_strip(lines)
  lines <- lines[grepl("^--", lines)]
  lines
}

test_that("install reports stages", {
  skip_on_cran()
  local_reproducible_output(width = 60)

  pkg <- local_package_copy(test_path("testTest"))
  withr::local_temp_libpaths()

  expect_snapshot(
    install(pkg, reload = FALSE, build = FALSE),
    transform = show_headers
  )
  expect_snapshot(
    install(pkg, reload = FALSE, build = TRUE),
    transform = show_headers
  )
})

test_that("install() doesn't reinstall deps already in non-primary libpath", {
  skip_on_cran()

  pkg <- local_package_copy(test_path("testInstallWithDeps"))
  withr::local_temp_libpaths()
  tmp_lib <- .libPaths()[1]

  install(pkg, reload = FALSE, build = FALSE, quiet = TRUE)

  installed <- setdiff(
    fs::path_file(fs::dir_ls(tmp_lib, type = "directory")),
    "_cache"
  )
  expect_equal(installed, "testInstallWithDeps")
})

test_that("vignettes built on install", {
  skip_on_cran()

  if (!pkgbuild::has_latex()) {
    skip("pdflatex not available")
  }

  pkg <- local_package_copy(test_path("testVignettesBuilt"))

  withr::local_temp_libpaths()
  install(pkg, reload = FALSE, quiet = TRUE, build_vignettes = TRUE)

  vigs <- vignette(package = "testVignettesBuilt")$results
  expect_equal(nrow(vigs), 1)
  expect_equal(vigs[3], "new")
})