fix test problems

Author: lorenzwalthert

R/setup.R

@@ -113,12 +113,7 @@ snippet_generate <- function(snippet = "", root = here::here()) {
     )
     deps <- desc::desc_get_deps()
     deps <- deps[order(deps$package), ]
-    paste0(
-      "        -    ", deps$package, "@",
-      purrr::map_chr(deps$package, ~ as.character(packageVersion(.x))), "\n",
-      collapse = ""
-    ) %>%
-      sort() %>%
+    snippet_generate_impl_additional_deps_roxygenize(deps$package) %>%
       cat(sep = "")
     remote_deps <- rlang::with_handlers(
       desc::desc_get_field("Remotes"),
@@ -144,3 +139,12 @@ You need in your `.pre-commit-config.yaml`
     }
   }
 }
+
+snippet_generate_impl_additional_deps_roxygenize <- function(packages) {
+  paste0(
+    "        -    ", packages, "@",
+    purrr::map_chr(packages, ~ as.character(packageVersion(.x))), "\n",
+    collapse = ""
+  ) %>%
+    sort()
+}

tests/testthat/test-cache.R

@@ -53,7 +53,7 @@ test_that("CLI API works for roxygenize", {
     suffix = "-cache-success.R",
     env = paste0("R_CACHE_ROOTPATH=", R.cache_root),
     msg = "You can silent this",
-    artifacts = c("DESCRIPTION" = test_path("in/DESCRIPTION")),
+    artifacts = c("DESCRIPTION" = test_path("in/DESCRIPTION-no-deps.dcf")),
     file_transformer = function(x) {
       git2r::init()
       x

tests/testthat/test-conda.R

@@ -8,7 +8,7 @@ if (!on_cran()) {
   test_that("can use pre-commit", {
     tempdir <- local_test_setup(quiet = FALSE, install_hooks = FALSE)
     expect_message(
-      use_precommit(open = FALSE, force = TRUE, root = tempdir),
+      use_precommit(open = FALSE, force = TRUE, install_hooks = FALSE, root = tempdir),
       "to get the latest"
     )
     expect_message(

tests/testthat/test-config.R

@@ -52,7 +52,7 @@ test_that(".Rbuildignore is written to the right directory when root is relative
   })
   withr::with_dir(
     fs::path_dir(root),
-    use_precommit_config(install_hooks = FALSE, root = fs::path_file(root))
+    use_precommit_config(root = fs::path_file(root))
   )
   expect_true(fs::file_exists(fs::path(root, ".Rbuildignore")))
 })