Skip to content

Commit

Permalink
Don't copy mode to temp file
Browse files Browse the repository at this point in the history
  • Loading branch information
MichaelChirico authored Jul 17, 2024
1 parent 90f017b commit 7f5d4f4
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions tests/testthat/test-build.R
Original file line number Diff line number Diff line change
Expand Up @@ -174,7 +174,7 @@ test_that("package tarball binary build errors", {
test_that("warnings can be turned into errors", {
src <- withr::local_tempdir()
dest <- withr::local_tempdir()
file.copy(test_path("testDummy"), src, recursive = TRUE)
file.copy(test_path("testDummy"), src, recursive = TRUE, copy.mode = FALSE)

withr::local_options(pkg.build_stop_for_warnings = TRUE)
expect_silent(
Expand Down Expand Up @@ -235,7 +235,7 @@ test_that("Config/build/clean-inst-doc TRUE", {
if (Sys.which("pandoc") == "") skip("No pandoc")
src <- withr::local_tempdir()
dest <- withr::local_tempdir()
file.copy(test_path("testInstDoc"), src, recursive = TRUE)
file.copy(test_path("testInstDoc"), src, recursive = TRUE, copy.mode = FALSE)

desc::desc_set(
"Config/build/clean-inst-doc" = "TRUE",
Expand All @@ -262,7 +262,7 @@ test_that("Config/build/clean-inst-doc TRUE", {
test_that("bootstrap.R runs on build if present", {
src <- withr::local_tempdir()
dest <- withr::local_tempdir()
file.copy(test_path("testDummy"), src, recursive = TRUE)
file.copy(test_path("testDummy"), src, recursive = TRUE, copy.mode = FALSE)

writeLines(
c(
Expand Down Expand Up @@ -295,7 +295,7 @@ test_that("bootstrap.R runs on build if present", {
test_that("bootstrap.R does not run if Config/build/bootstrap is not TRUE", {
src <- withr::local_tempdir()
dest <- withr::local_tempdir()
file.copy(test_path("testDummy"), src, recursive = TRUE)
file.copy(test_path("testDummy"), src, recursive = TRUE, copy.mode = FALSE)

writeLines(
c(
Expand Down Expand Up @@ -323,7 +323,7 @@ test_that("bootstrap.R does not run if Config/build/bootstrap is not TRUE", {
test_that("bootstrap.R can output stdout, stderr, and warnings when run", {
src <- withr::local_tempdir()
dest <- withr::local_tempdir()
file.copy(test_path("testDummy"), src, recursive = TRUE)
file.copy(test_path("testDummy"), src, recursive = TRUE, copy.mode = FALSE)

writeLines(
c(
Expand Down

0 comments on commit 7f5d4f4

Please sign in to comment.