test-vendor

R/vendor.R

@@ -32,22 +32,7 @@
 #' unlink(dir, recursive = TRUE)
 cpp_vendor <- function(path = "./src/vendor") {
   if (dir.exists(path)) {
-    cat(
-      sprintf(
-        "The directory '%s' already exists. Do you want to overwrite it?\n",
-        path
-      )
-    )
-    if (interactive()) {
-      if (utils::menu(c("Yes", "No"), graphics = FALSE) == 1L) {
-        unlink(path, recursive = TRUE)
-      } else {
-        return(FALSE)
-      }
-    } else {
-      message("Running in non-interactive mode. Exiting.")
-      return(FALSE)
-    }
+    stop("'", path, "' already exists\n * run unlink('", path, "', recursive = TRUE)", call. = FALSE)
   }
 
   dir.create(path, recursive = TRUE, showWarnings = FALSE)

tests/testthat/_snaps/register.new.md

@@ -0,0 +1,9 @@
+# cpp_register: can be run with messages
+
+    Code
+      cpp_register(p, quiet = FALSE)
+    Message
+      i 1 functions decorated with [[cpp11::register]]
+      v generated file 'cpp11.R'
+      v generated file 'cpp11.cpp'
+

tests/testthat/_snaps/source.md

@@ -2,7 +2,8 @@
 
     Code
       cpp_source(i_do_not_exist)
-    Error <simpleError>
-      Can't find `file` at this path:
+    Condition
+      Error:
+      ! Can't find `file` at this path:
       {NON_EXISTENT_FILEPATH}
 

tests/testthat/test-vendor.R

@@ -3,17 +3,17 @@ describe("cpp_vendor", {
     pkg <- local_package()
     mockery::stub(cpp_vendor, "system.file", "")
     expect_error(
-      cpp_vendor(pkg_path(pkg)),
+      cpp_vendor(paste0(pkg_path(pkg), "/src/vendor")),
       "cpp11 is not installed"
     )
   })
 
   it("errors if cpp11 is already vendored", {
     pkg <- local_package()
-    cpp_vendor(pkg_path(pkg))
+    cpp_vendor(paste0(pkg_path(pkg), "/src/vendor"))
 
     expect_error(
-      cpp_vendor(pkg_path(pkg)),
+      cpp_vendor(paste0(pkg_path(pkg), "/src/vendor")),
       "already exists"
     )
   })