tests/testthat/test-basics.R

In tidymodels/usemodels: Boilerplate Code for 'Tidymodels' Analyses

library(modeldata)
data("penguins")

test_that("wrong model type", {
  expect_snapshot(use_cubist(island ~ ., data = penguins), error = TRUE)
  expect_snapshot(use_C5.0(bill_depth_mm ~ ., data = penguins), error = TRUE)
})

test_that("no access to clipboard", {
  Sys.setenv(CLIPR_ALLOW = FALSE)
  expect_snapshot(use_kknn(mpg ~ ., data = mtcars, clipboard = TRUE), error = TRUE)
})