remove redundant tests

Author: topepo

tests/testthat/_snaps/boost_tree_xgboost.md

@@ -6,15 +6,6 @@
       Error:
       ! object 'novar' not found
 
-# xgboost execution, regression
-
-    Code
-      res <- parsnip::fit_xy(car_basic, x = mtcars[, num_pred], y = factor(mtcars$vs),
-      control = ctrl)
-    Condition
-      Error in `check_outcome()`:
-      ! For a regression model, the outcome should be `numeric`, not a `factor`.
-
 # submodel prediction
 
     Code

tests/testthat/_snaps/mars.md

@@ -31,14 +31,6 @@
       x Engine "wat?" is not supported for `mars()`
       i See `show_engines("mars")`.
 
-# mars execution
-
-    Code
-      res <- fit(hpc_basic, hpc_bad_form, data = hpc, control = ctrl)
-    Condition
-      Error in `check_outcome()`:
-      ! For a regression model, the outcome should be `numeric`, not a `factor`.
-
 # submodel prediction
 
     Code

tests/testthat/test-boost_tree_xgboost.R

@@ -151,15 +151,6 @@ test_that('xgboost execution, regression', {
     )
   )
 
-  expect_snapshot(
-    error = TRUE,
-    res <- parsnip::fit_xy(
-      car_basic,
-      x = mtcars[, num_pred],
-      y = factor(mtcars$vs),
-      control = ctrl
-    )
-  )
 })
 
 

tests/testthat/test-mars.R

@@ -56,16 +56,6 @@ test_that('mars execution', {
   expect_true(has_multi_predict(res))
   expect_equal(multi_predict_args(res), "num_terms")
 
-  expect_snapshot(
-    error = TRUE,
-    res <- fit(
-      hpc_basic,
-      hpc_bad_form,
-      data = hpc,
-      control = ctrl
-    )
-  )
-
   ## multivariate y
 
   expect_no_condition(

tests/testthat/test-nearest_neighbor_kknn.R

@@ -15,18 +15,6 @@ test_that('kknn execution', {
   skip_if_not_installed("kknn")
   library(kknn)
 
-  # continuous
-  # expect no error
-  expect_snapshot(
-    error = TRUE,
-    fit_xy(
-      hpc_basic,
-      control = ctrl,
-      x = hpc[, num_pred],
-      y = hpc$input_fields
-    )
-  )
-
   # nominal
   # expect no error
   expect_no_condition(

tests/testthat/test-rand_forest_ranger.R

@@ -46,16 +46,6 @@ test_that('ranger classification execution', {
     )
   )
 
-  expect_snapshot(
-    error = TRUE,
-    res <- fit(
-      bad_ranger_cls,
-      funded_amnt ~ term,
-      data = lending_club,
-      control = ctrl
-    )
-  )
-
   ranger_form_catch <- fit(
     bad_ranger_cls,
     Class ~ term,