debug Win GHA

xec-cm · Dec 21, 2023 · e23a720 · e23a720
1 parent 5195158
commit e23a720
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -38,5 +38,5 @@ Suggests:
     testthat (>= 3.0.0)
 Depends: R (>= 4.4.0)
 Config/testthat/edition: 3
-Config/testthat/parallel: true
+Config/testthat/parallel: false
 VignetteBuilder: knitr
diff --git a/R/longtests_rcolet.R b/R/longtests_rcolet.R
@@ -124,7 +124,7 @@ roclet_process.roclet_longtests <- function(x, blocks, env, base_path) {
 #' @examples
 #' # Set up a temporary directory
 #' base_path <- tempdir()
-#' longtests_path <- file.path(base_path, "longtests")
+#' longtests_path <- file.path(base_path, "longtests", "testthat")
 #' unlink(longtests_path, recursive = TRUE, force = TRUE)
 #' dir.create(longtests_path, recursive = TRUE, showWarnings = FALSE)
 #'

diff --git a/R/utils_longtests_rcolet.R b/R/utils_longtests_rcolet.R
@@ -239,8 +239,7 @@ internal_longtests_roclet_output <- function(results,
 
     content <- results[[i]]
 
-    # useBytes = TRUE not working on Windows
-    writeLines(text = enc2utf8(content), con = path, useBytes = FALSE)
+    writeLines(text = enc2utf8(content), con = path, useBytes = TRUE)
   }
 
   paths

diff --git a/man/roclet_output.roclet_longtests.Rd b/man/roclet_output.roclet_longtests.Rd
diff --git a/tests/testthat/test-roclet_output.R b/tests/testthat/test-roclet_output.R
@@ -3,7 +3,7 @@ test_that("roclet_output.roclet_longtests returns correct paths", {
   # Setup:
   base_path <- tempdir()
   longtests_path <- file.path(base_path, "longtests", "testthat")
-  unlink(longtests_path, recursive = TRUE, force = TRUE)
+  unlink(file.path(base_path, "longtests"), recursive = TRUE, force = TRUE)
   results <- roxygen2::roc_proc_text(longtests_roclet(), "
     #' Summing two numbers
     #'
@@ -17,6 +17,7 @@ test_that("roclet_output.roclet_longtests returns correct paths", {
       x + y
     }")
 
+  names(results$longtests) <- "test.R"
   # Check error when longtests directory does not exist
   expect_error(roclet_output.roclet_longtests(NULL, results, base_path))
 
@@ -25,5 +26,5 @@ test_that("roclet_output.roclet_longtests returns correct paths", {
 
   # Check that the function returns the correct paths
   roclet_output.roclet_longtests(NULL, results, base_path) |>
-    expect_equal("<text>")
+    expect_equal("test.R")
 })