Add a test

Author: jennybc

tests/testthat/test-install.R

@@ -21,6 +21,22 @@ test_that("install reports stages", {
   )
 })
 
+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()
 

tests/testthat/testInstallWithDeps/DESCRIPTION

@@ -0,0 +1,10 @@
+Package: testInstallWithDeps
+Title: Test Package With Dependencies
+Version: 0.1.0
+Authors@R: person("Test", "User", role = c("aut", "cre"), email = "test@example.com")
+Description: Minimal package used to test that devtools::install() does not
+    reinstall dependencies that are already satisfied in a non-primary library.
+License: GPL-2
+Imports:
+    cli
+Encoding: UTF-8

tests/testthat/testInstallWithDeps/NAMESPACE

@@ -0,0 +1 @@
+importFrom(cli,cli_abort)

tests/testthat/testInstallWithDeps/R/hello.R

@@ -0,0 +1,6 @@
+hello <- function(x) {
+  if (!is.character(x)) {
+    cli::cli_abort("{.arg x} must be a character string.")
+  }
+  paste0("Hello, ", x, "!")
+}