diff --git a/DESCRIPTION b/DESCRIPTION index 1c59441..9b3cab9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -44,7 +44,6 @@ Suggests: kernlab, kknn, knitr, - mockr, modeldata, nnet, ranger, diff --git a/tests/testthat/_snaps/fit_members.md b/tests/testthat/_snaps/fit_members.md index 7c98dcb..e26547b 100644 --- a/tests/testthat/_snaps/fit_members.md +++ b/tests/testthat/_snaps/fit_members.md @@ -24,17 +24,33 @@ # fit_members checks for required packages - The package a needs to be installed before fitting members. + Code + error_needs_install(letters[1], rep(FALSE, 1)) + Condition + Error in `error_needs_install()`: + ! The package a needs to be installed before fitting members. --- - The packages a and b need to be installed before fitting members. + Code + error_needs_install(letters[1:2], rep(FALSE, 2)) + Condition + Error in `error_needs_install()`: + ! The packages a and b need to be installed before fitting members. --- - The packages a, b, and c need to be installed before fitting members. + Code + error_needs_install(letters[1:3], rep(FALSE, 3)) + Condition + Error in `error_needs_install()`: + ! The packages a, b, and c need to be installed before fitting members. --- - The packages recipes, parsnip, and kernlab need to be installed before fitting members. + Code + st_reg_1_ %>% fit_members() + Condition + Error in `fit_members()`: + ! The packages recipes, parsnip, and kernlab need to be installed before fitting members. diff --git a/tests/testthat/test_fit_members.R b/tests/testthat/test_fit_members.R index 0d48a24..78e40fb 100644 --- a/tests/testthat/test_fit_members.R +++ b/tests/testthat/test_fit_members.R @@ -121,10 +121,6 @@ test_that("fit_members errors informatively with a bad model_stack arg", { test_that("fit_members checks for required packages", { skip_on_cran() - skip_if_not_installed("mockr") - - library(mockr) - # check pluralization of error expect_snapshot(error = TRUE, error_needs_install(letters[1], rep(FALSE, 1))) expect_snapshot(error = TRUE, error_needs_install(letters[1:2], rep(FALSE, 2))) @@ -142,11 +138,7 @@ test_that("fit_members checks for required packages", { expect_true(isNamespaceLoaded("kernlab")) # errors informatively when it's not installed - mockr::with_mock( - is_installed_ = function(x) {FALSE}, - {expect_snapshot_error( - st_reg_1_ %>% - fit_members() - )} - ) + testthat::local_mocked_bindings(is_installed_ = function(x) {FALSE}) + + expect_snapshot(error = TRUE, st_reg_1_ %>% fit_members()) })