nix test CI: testthat and covr tests for with_nix()

.github/workflows/test-coverage.yaml

@@ -20,9 +20,12 @@ jobs:
       - name: Install Nix
         uses: DeterminateSystems/nix-installer-action@main
 
-      - name: Test coverage
-        run: nix-shell -p R rPackages.covr rPackages.codetools rPackages.testthat --run "Rscript -e 'covr::codecov(quiet = FALSE, clean = FALSE, install_path = file.path(Sys.getenv(\"RUNNER_TEMP\"), \"package\"))' "
+      - name: Test
+        run: nix-shell --pure -p cacert nix R rPackages.covr rPackages.codetools rPackages.xml2 rPackages.sys rPackages.devtools --run "Rscript -e 'devtools::test()'"
 
+      - name: Test coverage
+        run: nix-shell --pure -p git cacert nix R rPackages.covr rPackages.codetools rPackages.xml2 rPackages.httr rPackages.sys rPackages.testthat --run "Rscript -e 'covr::codecov(quiet = FALSE, clean = FALSE, install_path = file.path(\"/home/runner/work/_temp\", \"package\"))' "
+
       - name: Show testthat output
         if: always()
         run: |

R/nix_build.R

@@ -26,6 +26,7 @@
 #' }
 nix_build <- function(project_path = ".",
                       exec_mode = c("blocking", "non-blocking")) {
+  PATH <- set_nix_path()
   has_nix_build <- nix_build_installed() # TRUE if yes, FALSE if no
   nix_file <- file.path(project_path, "default.nix")
 

R/with_nix.R

@@ -321,6 +321,8 @@ with_nix <- function(expr,
     print(out$stdout)
   }
 
+  unlink(file.path(temp_dir, "_out.Rds"), force = TRUE)
+
   cat("")
   return(out)
 }
@@ -754,7 +756,7 @@ quote_rnix <- function(expr,
     cat(ls())
     cat("\n")
     cat("\n* `sessionInfo()` output:\n")
-    cat(capture.output(sessionInfo()), sep = "\n")
+    try(cat(capture.output(sessionInfo()), sep = "\n"))
   } ) # end of `bquote()`
 
   return(expr_quoted)
@@ -799,6 +801,13 @@ with_expr_deparse <- function(expr) {
 
 #' @noRd
 nix_shell_available <- function() {
+  # for local tests via `devtools::test()` in RStudio
+  old_path <- Sys.getenv("PATH")
+  nix_path <- "/nix/var/nix/profiles/default/bin"
+  has_nix_path <- any(grepl(nix_path, old_path))
+  if (isFALSE(has_nix_path)) {
+    Sys.setenv(PATH = paste(old_path, nix_path, sep = ":"))
+  }
   which_nix_shell <- Sys.which("nix-shell")
   if (nzchar(which_nix_shell)) {
     return(TRUE)

dev/flat_nix_build.Rmd

@@ -39,6 +39,7 @@ session.
 #' }
 nix_build <- function(project_path = ".",
                       exec_mode = c("blocking", "non-blocking")) {
+  PATH <- set_nix_path()
   has_nix_build <- nix_build_installed() # TRUE if yes, FALSE if no
   nix_file <- file.path(project_path, "default.nix")
 
@@ -142,3 +143,36 @@ nix_build_exit_msg <- function(x) {
   return(err_msg)
 }
 ```
+
+```{r, tests-nix_build}
+testthat::test_that("Testing that `nix_build()` builds derivation", {
+
+  skip_if_not(nix_shell_available())
+
+  path_subshell <- "."
+
+  rix_init(
+    project_path = path_subshell,
+    rprofile_action = "overwrite",
+    message_type = "simple"
+  )
+
+  rix(
+    r_ver = "latest",
+    overwrite = TRUE,
+    project_path = path_subshell
+  )
+
+  out <- nix_build(
+    project_path = path_subshell,
+    exec_mode = "blocking"
+  )
+
+  # exit status 0L is success
+  testthat::expect_true(
+    out$status == 0L
+  )
+
+
+})
+```

dev/flat_with_nix.Rmd

@@ -330,6 +330,8 @@ with_nix <- function(expr,
     print(out$stdout)
   }
 
+  unlink(file.path(temp_dir, "_out.Rds"), force = TRUE)
+
   cat("")
   return(out)
 }
@@ -763,7 +765,7 @@ quote_rnix <- function(expr,
     cat(ls())
     cat("\n")
     cat("\n* `sessionInfo()` output:\n")
-    cat(capture.output(sessionInfo()), sep = "\n")
+    try(cat(capture.output(sessionInfo()), sep = "\n"))
   } ) # end of `bquote()`
 
   return(expr_quoted)
@@ -808,6 +810,13 @@ with_expr_deparse <- function(expr) {
 
 #' @noRd
 nix_shell_available <- function() {
+  # for local tests via `devtools::test()` in RStudio
+  old_path <- Sys.getenv("PATH")
+  nix_path <- "/nix/var/nix/profiles/default/bin"
+  has_nix_path <- any(grepl(nix_path, old_path))
+  if (isFALSE(has_nix_path)) {
+    Sys.setenv(PATH = paste(old_path, nix_path, sep = ":"))
+  }
   which_nix_shell <- Sys.which("nix-shell")
   if (nzchar(which_nix_shell)) {
     return(TRUE)
@@ -837,13 +846,47 @@ create_shell_nix <- function(path = file.path("inst", "extdata",
 ```
 
 ```{r, tests-with_nix}
+testthat::test_that("Test 2 for with_nix() if Nix is installed", {
+
+  skip_if_not(nix_shell_available())
+
+  path_subshell <- "."
+
+  rix_init(
+    project_path = path_subshell,
+    rprofile_action = "overwrite",
+    message_type = "simple"
+  )
+
+  rix(
+    r_ver = "4.2.0",
+    overwrite = TRUE,
+    project_path = path_subshell
+  )
+
+  df <- data.frame(a = 1:3, b = 4:6)
+
+  out_subshell <- with_nix(
+    expr = function() {
+      as.vector(x = data.frame(a = 1:3, b = 4:6), mode = "list")
+    },
+    program = "R",
+    exec_mode = "blocking",
+    project_path = path_subshell,
+    message_type = "verbose"
+  )
+
+  testthat::expect_false(
+    inherits(out_subshell, "data.frame")
+  )
+})
+
+
 testthat::test_that("Testing with_nix() if Nix is installed", {
 
   skip_if_not(nix_shell_available())
 
-  skip_on_covr()
-
-  path_subshell <- tempdir()
+  path_subshell <- "."
 
   rix_init(
     project_path = path_subshell,
@@ -865,7 +908,7 @@ testthat::test_that("Testing with_nix() if Nix is installed", {
       return(a)
     },
     program = "R",
-    exec_mode = "non-blocking",
+    exec_mode = "blocking",
     project_path = path_subshell,
     message_type = "simple"
   )

tests/testthat/test-nix_build.R

@@ -0,0 +1,32 @@
+# WARNING - Generated by {fusen} from dev/flat_nix_build.Rmd: do not edit by hand
+
+testthat::test_that("Testing that `nix_build()` builds derivation", {
+
+  skip_if_not(nix_shell_available())
+
+  path_subshell <- "."
+
+  rix_init(
+    project_path = path_subshell,
+    rprofile_action = "overwrite",
+    message_type = "simple"
+  )
+
+  rix(
+    r_ver = "latest",
+    overwrite = TRUE,
+    project_path = path_subshell
+  )
+
+  out <- nix_build(
+    project_path = path_subshell,
+    exec_mode = "blocking"
+  )
+
+  # exit status 0L is success
+  testthat::expect_true(
+    out$status == 0L
+  )
+
+
+})

tests/testthat/test-with_nix.R

@@ -1,12 +1,46 @@
 # WARNING - Generated by {fusen} from dev/flat_with_nix.Rmd: do not edit by hand
 
+testthat::test_that("Test 2 for with_nix() if Nix is installed", {
+
+  skip_if_not(nix_shell_available())
+
+  path_subshell <- "."
+
+  rix_init(
+    project_path = path_subshell,
+    rprofile_action = "overwrite",
+    message_type = "simple"
+  )
+
+  rix(
+    r_ver = "4.2.0",
+    overwrite = TRUE,
+    project_path = path_subshell
+  )
+
+  df <- data.frame(a = 1:3, b = 4:6)
+
+  out_subshell <- with_nix(
+    expr = function() {
+      as.vector(x = data.frame(a = 1:3, b = 4:6), mode = "list")
+    },
+    program = "R",
+    exec_mode = "blocking",
+    project_path = path_subshell,
+    message_type = "verbose"
+  )
+
+  testthat::expect_false(
+    inherits(out_subshell, "data.frame")
+  )
+})
+
+
 testthat::test_that("Testing with_nix() if Nix is installed", {
 
   skip_if_not(nix_shell_available())
 
-  skip_on_covr()
-
-  path_subshell <- tempdir()
+  path_subshell <- "."
 
   rix_init(
     project_path = path_subshell,
@@ -28,7 +62,7 @@ testthat::test_that("Testing with_nix() if Nix is installed", {
       return(a)
     },
     program = "R",
-    exec_mode = "non-blocking",
+    exec_mode = "blocking",
     project_path = path_subshell,
     message_type = "simple"
   )