test: test dock_from_renv with moked binding

why
- local user install must not influence test output
- update flat to reflect change in test file

Author: dagousket

R/dock_from_renv.R

@@ -245,4 +245,3 @@ dock_from_renv <- function(
   dock
 }
 
-

dev/flat_dock_from_renv.Rmd

@@ -176,27 +176,32 @@ dock_from_renv <- function(
       }
     )
 
-    
-    pkg_sysreqs <- attempt::map_try_catch(
+
+    pkg_sysreqs <- unlist(attempt::map_try_catch(
       pkg_os,
       function(x) {
-        do.call(
-          pkg_sysreqs_mem,
-          x
-        ) |> 
-          pluck("packages") |> 
-          keep_at("system_packages")
+        keep_at(
+          pluck(
+            do.call(pkg_sysreqs_mem, x),
+            "packages"
+          ),
+          "system_packages"
+        )
       },
       .e = ~ character(0)
-    ) |> 
-      unlist()
+    ))
 
 
 
 
 
-    pkg_installs <- unique(pkg_sysreqs) |> 
-      lapply( function(.x) {paste0(install_cmd, " ", .x)})
+    pkg_installs <-
+      lapply(
+        X = unique(pkg_sysreqs),
+        FUN = function(.x) {
+          paste0(install_cmd, " ", .x)
+        }
+      )
 
     if (length(unlist(pkg_installs)) == 0) {
       cat_bullet(
@@ -279,7 +284,6 @@ dock_from_renv <- function(
   dock
 }
 
-
 ```
 
 ```{r example-dock_from_renv}
@@ -327,16 +331,23 @@ writeLines(renv_file, file.path(dir_build, "renv.lock"))
 
 # dock_from_renv ----
 test_that("dock_from_renv works", {
-  
-  
+
   # testthat::skip_on_cran()
   # skip_if_not(interactive())
   # Create Dockerfile
   skip_if(is_rdevel, "skip on R-devel")
-  out <- dock_from_renv(
-    lockfile = the_lockfile,
-    FROM = "rocker/verse",
+
+  testthat::with_mocked_bindings(code = {
+    out <- dock_from_renv(
+      lockfile = the_lockfile,
+      FROM = "rocker/verse",
+      renv_version = "0.0.0"
+    )
+  },
+  compact_sysreqs = function(...) "fake sys reqs",
+  repos_as_character = function(...) "fake repos"
   )
+
   expect_s3_class(
     out,
     "Dockerfile"
@@ -346,7 +357,6 @@ test_that("dock_from_renv works", {
     "R6"
   )
 
-
   # read Dockerfile
   out$write(
     file.path(
@@ -361,48 +371,17 @@ test_that("dock_from_renv works", {
       "Dockerfile"
     )
   )
-  expect_equal(
-    dock_created[1],
-    "FROM rocker/verse:4.1.2"
-  )
 
-  expect_length(
-    grep("RUN R -e 'renv::restore\\(\\)'", dock_created),
-    1
+  dock_expected <- readLines(
+    testthat::test_path("renv_Dockerfile")
   )
 
+  expect_equal(dock_created, dock_expected)
+
   skip_if(is_rdevel, "Skip R-devel")
   #python3 is not a direct dependencies from custom_packages
   expect_false(  any(grepl("python3",out$Dockerfile)))
-  
-  # System dependencies are different when build in interactive environment?
-  # yes.  strange.
-  skip_if_not(interactive())
-  dir.create(
-    file.path(
-      dir_build,
-      "inst"
-    )
-  )
-  file.copy(
-    file.path(
-      dir_build,
-      "Dockerfile"
-    ),
-    file.path(
-      dir_build,
-      "inst"
-    ),
-    overwrite = TRUE
-  )
-  dock_expected <- readLines(
-    system.file(
-      "renv_Dockefile",
-      package = "dockerfiler"
-    )
-  )
 
-  expect_equal(dock_created, dock_expected)
 })
 # rstudioapi::navigateToFile(file.path(dir_build, "Dockerfile"))
 

inst/renv_Dockefile

@@ -0,0 +1,8 @@
+FROM rocker/verse:4.1.2
+RUN fake sys reqs
+RUN mkdir -p /usr/local/lib/R/etc/ /usr/lib/R/etc/
+RUN echo "options(renv.config.pak.enabled = FALSE, repos = fake repos, download.file.method = 'libcurl', Ncpus = 4)" | tee /usr/local/lib/R/etc/Rprofile.site | tee /usr/lib/R/etc/Rprofile.site
+RUN R -e 'install.packages("remotes")'
+RUN R -e 'remotes::install_version("renv", version = "0.0.0")'
+COPY renv.lock renv.lock
+RUN R -e 'renv::restore()'

tests/testthat/renv_Dockerfile

@@ -36,16 +36,23 @@ writeLines(renv_file, file.path(dir_build, "renv.lock"))
 
 # dock_from_renv ----
 test_that("dock_from_renv works", {
-  
-  
+
   # testthat::skip_on_cran()
   # skip_if_not(interactive())
   # Create Dockerfile
   skip_if(is_rdevel, "skip on R-devel")
-  out <- dock_from_renv(
-    lockfile = the_lockfile,
-    FROM = "rocker/verse",
+
+  testthat::with_mocked_bindings(code = {
+    out <- dock_from_renv(
+      lockfile = the_lockfile,
+      FROM = "rocker/verse",
+      renv_version = "0.0.0"
+    )
+  },
+  compact_sysreqs = function(...) "fake sys reqs",
+  repos_as_character = function(...) "fake repos"
   )
+
   expect_s3_class(
     out,
     "Dockerfile"
@@ -55,7 +62,6 @@ test_that("dock_from_renv works", {
     "R6"
   )
 
-
   # read Dockerfile
   out$write(
     file.path(
@@ -70,48 +76,17 @@ test_that("dock_from_renv works", {
       "Dockerfile"
     )
   )
-  expect_equal(
-    dock_created[1],
-    "FROM rocker/verse:4.1.2"
-  )
 
-  expect_length(
-    grep("RUN R -e 'renv::restore\\(\\)'", dock_created),
-    1
+  dock_expected <- readLines(
+    testthat::test_path("renv_Dockerfile")
   )
 
+  expect_equal(dock_created, dock_expected)
+
   skip_if(is_rdevel, "Skip R-devel")
   #python3 is not a direct dependencies from custom_packages
   expect_false(  any(grepl("python3",out$Dockerfile)))
-  
-  # System dependencies are different when build in interactive environment?
-  # yes.  strange.
-  skip_if_not(interactive())
-  dir.create(
-    file.path(
-      dir_build,
-      "inst"
-    )
-  )
-  file.copy(
-    file.path(
-      dir_build,
-      "Dockerfile"
-    ),
-    file.path(
-      dir_build,
-      "inst"
-    ),
-    overwrite = TRUE
-  )
-  dock_expected <- readLines(
-    system.file(
-      "renv_Dockefile",
-      package = "dockerfiler"
-    )
-  )
 
-  expect_equal(dock_created, dock_expected)
 })
 # rstudioapi::navigateToFile(file.path(dir_build, "Dockerfile"))