feat: add read_only argument to run_test

Author: TymekDev

R/testing.R

@@ -43,7 +43,8 @@ run_test <- function(hook_name,
                      artifacts = NULL,
                      file_transformer = function(files) files,
                      env = character(),
-                     expect_success = is.null(std_err)) {
+                     expect_success = is.null(std_err),
+                     read_only = FALSE) {
   withr::local_envvar(list(R_PRECOMMIT_HOOK_ENV = "1"))
   path_executable <- fs::dir_ls(system.file(
     fs::path("hooks", "exported"),
@@ -62,7 +63,8 @@ run_test <- function(hook_name,
     artifacts = ensure_named(artifacts),
     file_transformer = file_transformer,
     env = env,
-    expect_success = expect_success
+    expect_success = expect_success,
+    read_only = read_only
   )
 }
 
@@ -93,7 +95,8 @@ run_test_impl <- function(path_executable,
                           artifacts,
                           file_transformer,
                           env,
-                          expect_success) {
+                          expect_success,
+                          read_only) {
   # ensure cannonical /private/var/... not /var/... on macOS
   tempdir <- fs::path(normalizePath((fs::dir_create(fs::file_temp()))))
   copy_artifacts(artifacts, tempdir)
@@ -128,6 +131,13 @@ run_test_impl <- function(path_executable,
     std_out,
     exit_status
   )
+  if (isTRUE(read_only) && !is.null(artifacts)) {
+    purrr::iwalk(artifacts, function(reference_path, temp_path) {
+      artifact_before_hook <- readLines(testthat::test_path(reference_path))
+      artifact_after_hook <- readLines(fs::path_join(c(tempdir, temp_path)))
+      testthat::expect_equal(artifact_before_hook, artifact_after_hook)
+    })
+  }
 }