Preventively error when calling use_r(), use_test() if active fil…

…e is `tests/testthat/helper.R`

R/r.R

@@ -160,9 +160,17 @@ compute_active_name <- function(path, ext, error_call = caller_env()) {
 
   file <- path_file(path)
   if (dir == "tests/testthat") {
+    if (file == "helper.R") {
+      cli::cli_abort(c(
+        "Can't call {.fn use_r} / {.fn use_test} when active file is \\
+         {.path {pth('tests/testthat/helper.R')}}",
+        i = "Supply {.arg name} or navigate to your  file."
+        ),
+        call = error_call
+      )
+    }
     file <- gsub("^test[-_]", "", file)
     file <- gsub("^helper[-_]", "", file)
-
   }
   as.character(path_ext_set(file, ext))
 }

tests/testthat/test-r.R

@@ -18,7 +18,6 @@ test_that("can use use_test() and use_test_helper() in a project", {
   create_local_project()
   expect_no_error(use_test("foofy"))
   expect_no_error(use_test_helper("foofy"))
-
 })
 
 # helpers -----------------------------------------------------------------
@@ -69,6 +68,7 @@ test_that("compute_active_name() standardises name", {
     compute_active_name(path(dir, "tests/testthat/helper-bar.R"), "R"),
     "bar.R"
   )
+
   # https://github.com/r-lib/usethis/issues/1690
   expect_equal(
     compute_active_name(path(dir, "R/data.frame.R"), "R"),