Only update known_output if the test dir is writable

Author: michaelquinn32

tests/testthat/test-cache-with-r-cache.R

@@ -64,7 +64,8 @@ capture.output(test_that("cached expressions are displayed propperly", {
   cache_info <- cache_info("testthat", format = "tabular")
   expect_known_value(
     cache_info[, c("n", "size", "last_modified", "activated")],
-    file = test_path("reference-objects/cache-info-1")
+    file = test_path("reference-objects/cache-info-1"),
+    update = getOption("styler.test_dir_writable", TRUE)
   )
 
   activate_testthat_cache()
@@ -73,14 +74,18 @@ capture.output(test_that("cached expressions are displayed propperly", {
   cache_info$size <- round(cache_info$size, -2)
   expect_known_value(
     cache_info[, c("n", "size", "activated")],
-    file = test_path("reference-objects/cache-info-2")
+    file = test_path("reference-objects/cache-info-2"),
+    update = getOption("styler.test_dir_writable", TRUE)
+
   )
   style_text("a <-function() NULL")
   cache_info <- cache_info(format = "tabular")
   cache_info$size <- round(cache_info$size, -2)
   expect_known_value(
     cache_info[, c("n", "size", "activated")],
-    file = test_path("reference-objects/cache-info-3")
+    file = test_path("reference-objects/cache-info-3"),
+    update = getOption("styler.test_dir_writable", TRUE)
+
   )
 }))
 

tests/testthat/test-public_api.R

@@ -163,7 +163,8 @@ test_that("messages (via cat()) of style_file are correct", {
           testthat_file(paste0(
             "public-api/xyzdir-dirty/dirty-reference-with-scope-tokens-",
             encoding
-          ))
+          )),
+          update = getOption("styler.test_dir_writable", TRUE)
         )
 
         # No message if scope > line_breaks and code does not change
@@ -175,7 +176,8 @@ test_that("messages (via cat()) of style_file are correct", {
           testthat_file(paste0(
             "public-api/xyzdir-dirty/clean-reference-with-scope-tokens-",
             encoding
-          ))
+          )),
+          update = getOption("styler.test_dir_writable", TRUE)
         )
 
         # No message if scope <= line_breaks even if code is changed.
@@ -187,7 +189,8 @@ test_that("messages (via cat()) of style_file are correct", {
           testthat_file(paste0(
             "public-api/xyzdir-dirty/dirty-reference-with-scope-spaces-",
             encoding
-          ))
+          )),
+          update = getOption("styler.test_dir_writable", TRUE)
         )
       }
     )

tests/testthat/test-utils.R

@@ -10,11 +10,13 @@ test_that("non-comment-helpers", {
 test_that("files with and without blank EOF line are read correctly", {
   expect_known_value(
     read_utf8(test_path("reference-objects/missing-blank-at-EOF.R")),
-    test_path("reference-objects/return-read-utf8-missing-EOF")
+    test_path("reference-objects/return-read-utf8-missing-EOF"),
+    update = getOption("styler.test_dir_writable", TRUE)
   )
 
   expect_known_value(
     read_utf8(test_path("reference-objects/non-missing-blank-at-EOF.R")),
-    test_path("reference-objects/return-read-utf8-non-missing-EOF")
+    test_path("reference-objects/return-read-utf8-non-missing-EOF"),
+    update = getOption("styler.test_dir_writable", TRUE)
   )
 })