test toggle_sparsity inside fit

tidymodels · Jan 17, 2025 · 138da29 · 138da29
1 parent 843de34
commit 138da29
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/tests/testthat/test-sparsevctrs.R b/tests/testthat/test-sparsevctrs.R
@@ -277,3 +277,22 @@ test_that("toggle_sparsity doesn't change yes", {
     "yes"
   )
 })
+
+test_that("toggle_sparsity doesn't break fit", {
+  skip_if_not_installed("glmnet")
+  skip_if_not_installed("modeldata")
+
+  data("ames", package = "modeldata")
+
+  tree_spec <- parsnip::boost_tree("regression", "xgboost")
+
+  rec_spec <- recipes::recipe(Sale_Price ~ ., data = ames) %>%
+    recipes::step_dummy(recipes::all_nominal_predictors())
+
+  wf_spec <- workflow(rec_spec, tree_spec)
+
+  expect_no_error(
+    fit(wf_spec, ames)
+  )
+})
+