From 32c21559c29b5a521f9cb0c079f37801bf1d0fa1 Mon Sep 17 00:00:00 2001
From: Vincent Guyader <vincent@thinkr.fr>
Date: Mon, 8 Jul 2024 11:25:50 +0000
Subject: [PATCH] skip on r-devel (even on linux...)

---
 dev/flat_dock_from_renv.Rmd          |  8 ++++++--
 tests/testthat/setup_cache_dir.R     |  1 +
 tests/testthat/test-dock_from_desc.R |  3 +++
 tests/testthat/test-dock_from_renv.R | 18 ++++++++++++------
 tests/testthat/test-dockerbuild.R    |  1 +
 5 files changed, 23 insertions(+), 8 deletions(-)

diff --git a/dev/flat_dock_from_renv.Rmd b/dev/flat_dock_from_renv.Rmd
index 98f2b96..19db82b 100644
--- a/dev/flat_dock_from_renv.Rmd
+++ b/dev/flat_dock_from_renv.Rmd
@@ -327,10 +327,12 @@ 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",
@@ -408,7 +410,7 @@ test_that("dock_from_renv works with full dependencies", {
   # testthat::skip_on_cran()
   # skip_if_not(interactive())
   # Create Dockerfile
-
+skip_if(is_rdevel, "skip on R-devel")
   out <- dock_from_renv(
     dependencies = TRUE,
     lockfile = the_lockfile,
@@ -468,6 +470,8 @@ test_that("gen_base_image works", {
 
 
 test_that("dock_from_renv works with specific renv", {
+  
+  skip_if(is_rdevel, "skip on R-devel")
   # testthat::skip_on_cran()
 the_lockfile1.0.0 <- system.file("renv_with_1.0.0.lock",package = "dockerfiler")
 
diff --git a/tests/testthat/setup_cache_dir.R b/tests/testthat/setup_cache_dir.R
index 67e04b3..a9d7ad8 100644
--- a/tests/testthat/setup_cache_dir.R
+++ b/tests/testthat/setup_cache_dir.R
@@ -3,3 +3,4 @@ dir.create(R_USER_CACHE_DIR)
 Sys.setenv("R_USER_CACHE_DIR"=R_USER_CACHE_DIR)
 r_version <- R.Version()$version.string
 is_rdevel <- grepl("unstable", r_version)
+# is_debian <- grepl("debian", tolower(Sys.info()['release']))
diff --git a/tests/testthat/test-dock_from_desc.R b/tests/testthat/test-dock_from_desc.R
index 7bd238f..effc6eb 100644
--- a/tests/testthat/test-dock_from_desc.R
+++ b/tests/testthat/test-dock_from_desc.R
@@ -37,6 +37,9 @@ withr::with_dir(
   descdir,
   {
     test_that("dock_from_desc works", {
+
+      skip_if(is_rdevel, "skip on R-devel")
+
       my_dock <- dock_from_desc(file.path(".", "DESCRIPTION__"))
 
       expect_s3_class(my_dock, "R6")
diff --git a/tests/testthat/test-dock_from_renv.R b/tests/testthat/test-dock_from_renv.R
index 9d87e72..42e8cfb 100644
--- a/tests/testthat/test-dock_from_renv.R
+++ b/tests/testthat/test-dock_from_renv.R
@@ -36,10 +36,12 @@ 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",
@@ -77,9 +79,11 @@ test_that("dock_from_renv works", {
     grep("RUN R -e 'renv::restore\\(\\)'", dock_created),
     1
   )
+
   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())
@@ -115,7 +119,7 @@ test_that("dock_from_renv works with full dependencies", {
   # testthat::skip_on_cran()
   # skip_if_not(interactive())
   # Create Dockerfile
-
+skip_if(is_rdevel, "skip on R-devel")
   out <- dock_from_renv(
     dependencies = TRUE,
     lockfile = the_lockfile,
@@ -175,6 +179,8 @@ test_that("gen_base_image works", {
 
 
 test_that("dock_from_renv works with specific renv", {
+  
+  skip_if(is_rdevel, "skip on R-devel")
   # testthat::skip_on_cran()
 the_lockfile1.0.0 <- system.file("renv_with_1.0.0.lock",package = "dockerfiler")
 
@@ -215,10 +221,10 @@ socle_install_version <- "remotes::install_version\\(\"renv\", version = \""
                info = paste(lf," & ",renv_version))
 
 
-}}
-
-
-
+}}  
+  
+  
+  
 
 })
 
diff --git a/tests/testthat/test-dockerbuild.R b/tests/testthat/test-dockerbuild.R
index 33a355a..0db2e48 100644
--- a/tests/testthat/test-dockerbuild.R
+++ b/tests/testthat/test-dockerbuild.R
@@ -1,5 +1,6 @@
 n_temp <- tempdir()
 file.copy("renv.lock", n_temp)
+skip_if(is_rdevel, "skip on R-devel")
 withr::with_dir(
   n_temp,
   {