Mock rsconnect::writeManifest() in test (#230)

rstudio · Aug 9, 2023 · 779931a · 779931a
1 parent 09a6c5b
commit 779931a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/R/rsconnect.R b/R/rsconnect.R
@@ -125,3 +125,7 @@ vetiver_create_rsconnect_bundle <- function(
     invisible(filename)
 
 }
+
+mock_write_manifest <- function(appDir, appFiles) {
+    fs::file_create(fs::path(appDir, "manifest.json"))
+}
diff --git a/tests/testthat/test-rsconnect.R b/tests/testthat/test-rsconnect.R
@@ -1,6 +1,7 @@
 skip_if_not_installed("rsconnect")
 
 describe("create rsconnect bundle", {
+    local_mocked_bindings(writeManifest = mock_write_manifest, .package = "rsconnect")
     tar_file <- fs::file_temp(pattern = "bundle", tmp_dir = tmp_dir, ext = ".tar.gz")
 
     b <- board_folder(path = tmp_dir)