Simplify spell check test

r-lib · Sep 14, 2024 · 8b1666d · 8b1666d
1 parent d6f9984
commit 8b1666d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 20 deletions.
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -25,25 +25,6 @@ test_df <- function(tibble = FALSE, factor = FALSE, missing = FALSE) {
   df
 }
 
-test_package_root <- function() {
-  skip_if_not_installed("rprojroot")
-  x <- tryCatch(
-    rprojroot::find_package_root_file(),
-    error = function(e) NULL)
-
-  if (!is.null(x)) return(x)
-
-  pkg <- testthat::testing_package()
-  x <- tryCatch(
-    rprojroot::find_package_root_file(
-      path = file.path("..", "..", "00_pkg_src", pkg)),
-    error = function(e) NULL)
-
-  if (!is.null(x)) return(x)
-
-  stop("Cannot find package root")
-}
-
 test_write <- function(d, schema = NULL, encoding = NULL) {
   tmp <- tempfile(fileext = ".parquet")
   on.exit(unlink(tmp), add = TRUE)

diff --git a/tests/testthat/test-spelling.R b/tests/testthat/test-spelling.R
@@ -1,7 +1,12 @@
 test_that("spelling", {
   skip_on_cran()
   skip_on_covr()
-  pkg <- test_package_root()
+
+  pkg <- test_path("../../")
+  if (!file.exists(file.path(pkg, "DESCRIPTION"))) {
+    pkg <- file.path(pkg, "00_pkg_src", .packageName)
+  }
+
   expect_snapshot({
     spelling::spell_check_package(pkg)
   })