test for error

extendr · Nov 14, 2024 · 530d2e7 · 530d2e7
1 parent cc062d9
commit 530d2e7
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/R/use_crate.R b/R/use_crate.R
@@ -54,7 +54,8 @@ use_crate <- function(
 
   if (!is.null(version) && !is.null(git)) {
     cli::cli_abort(
-      "Cannot specify a git URL ('{git}') with a version ('{version}')."
+      "Cannot specify a git URL ('{git}') with a version ('{version}').",
+      class = "rextendr_error"
     )
   }
 

diff --git a/tests/testthat/test-use_crate.R b/tests/testthat/test-use_crate.R
@@ -26,3 +26,24 @@ test_that("use_crate() adds dependency to package or workspace", {
 
   expect_equal(dependency[["req"]], "^1.0.1")
 })
+
+test_that("use_crate() errors when user passes git and version arguments", {
+  skip_if_not_installed("usethis")
+
+  path <- local_package("testpkg")
+
+  # capture setup messages
+  withr::local_options(usethis.quiet = FALSE)
+
+  use_extendr(path, quiet = TRUE)
+
+  fn <- function() {
+    use_crate(
+      "serde",
+      git = "https://github.com/serde-rs/serde",
+      version = "1.0.1"
+    )
+  }
+
+  expect_error(fn(), class = "rextendr_error")
+})