Merge pull request #83 from tidymodels/cli-check_args

test {cli} changes to `check_args()`

tests/testthat/_snaps/poisson_reg.md

@@ -103,3 +103,23 @@
       [1] "poisson"
       
 
+# check_args() works
+
+    Code
+      spec <- poisson_reg(mixture = -1) %>% set_engine("glm") %>% set_mode(
+        "regression")
+      fit(spec, gear ~ ., data = mtcars)
+    Condition
+      Error in `fit()`:
+      ! `mixture` must be a number between 0 and 1 or `NULL`, not the number -1.
+
+---
+
+    Code
+      spec <- poisson_reg(penalty = -1) %>% set_engine("glm") %>% set_mode(
+        "regression")
+      fit(spec, gear ~ ., data = mtcars)
+    Condition
+      Error in `fit()`:
+      ! `penalty` must be a number larger than or equal to 0 or `NULL`, not the number -1.
+

tests/testthat/test-poisson_reg.R

@@ -13,3 +13,28 @@ test_that("arguments", {
   expect_snapshot(translate_args(mixture %>% set_engine("glmnet")))
   expect_snapshot(translate_args(mixture_tune %>% set_engine("glmnet")))
 })
+
+
+test_that('check_args() works', {
+  skip_if_not_installed("parsnip", "1.2.1.9001")
+
+  expect_snapshot(
+    error = TRUE,
+    {
+      spec <- poisson_reg(mixture = -1) %>% 
+        set_engine("glm") %>%
+        set_mode("regression")
+      fit(spec, gear ~ ., data = mtcars)
+    }
+  )
+
+  expect_snapshot(
+    error = TRUE,
+    {
+      spec <- poisson_reg(penalty = -1) %>% 
+        set_engine("glm") %>%
+        set_mode("regression")
+      fit(spec, gear ~ ., data = mtcars)
+    }
+  )
+})