diff --git a/tests/spelling.R b/tests/spelling.R deleted file mode 100644 index 13f77d9..0000000 --- a/tests/spelling.R +++ /dev/null @@ -1,6 +0,0 @@ -if (requireNamespace("spelling", quietly = TRUE)) { - spelling::spell_check_test( - vignettes = TRUE, error = FALSE, - skip_on_cran = TRUE - ) -} diff --git a/tests/testthat/test-file_read_version.R b/tests/testthat/test-get_file_version.R similarity index 100% rename from tests/testthat/test-file_read_version.R rename to tests/testthat/test-get_file_version.R diff --git a/tests/testthat/tests-strict.R b/tests/testthat/tests-strict.R deleted file mode 100644 index fe18869..0000000 --- a/tests/testthat/tests-strict.R +++ /dev/null @@ -1,39 +0,0 @@ -strict_tests <- nzchar(Sys.getenv("RELIC_TEST_STRICT")) -pkgroot <- test_package_root() - -test_that("Linting", { - testthat::skip_on_cran() - testthat::skip_on_covr() - lints <- lintr::lint_package(pkgroot) - has_lints <- length(lints) > 0L - if (has_lints) { - lint_output <- format(lints) - } - if (strict_tests) { - testthat::expect(!has_lints, paste0( - "Not lint free\n", - format(lints) - )) - } else { - if (has_lints) warning("Lints found, run `lintr::lint_package()` to see them.") - expect_true(TRUE) - } -}) - -test_that("Spelling", { - testthat::skip_on_cran() - testthat::skip_on_covr() - typos <- spelling::spell_check_package(pkgroot) - has_typos <- nrow(typos) > 0L - if (strict_tests) { - expect(!has_typos, paste0( - "Not typo free: \n", - capture.output(typos) - )) - } else { - if (has_typos) warning("Typos found, run `spelling::spell_check_package()` to see them.") - expect_true(TRUE) - } -}) - -