Make compute_name() work when ext is not "R"

r-lib · Jun 17, 2023 · b7e0603 · b7e0603
1 parent 97b2891
commit b7e0603
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/r.R b/R/r.R
@@ -78,7 +78,7 @@ compute_name <- function(name = NULL, ext = "R", error_call = caller_env()) {
 
     if (path_ext(name) == "") {
       name <- path_ext_set(name, ext)
-    } else if (path_ext(name) != "R") {
+    } else if (path_ext(name) != ext) {
       cli::cli_abort(
         "{.arg name} must have extension {.str {ext}}, not {.str {path_ext(name)}}.",
         call = error_call

diff --git a/tests/testthat/test-r.R b/tests/testthat/test-r.R
@@ -34,6 +34,7 @@ test_that("compute_name() validates its inputs", {
     compute_name("")
     compute_name("****")
   })
+  expect_equal(compute_name("foo.c", ext = "c"), "foo.c")
 })
 
 test_that("compute_active_name() errors if no files open", {