tests/testthat/test_condense_control.R

In parsnip: A Common API to Modeling and Analysis Functions

test_that("condense_control works", {
  ctrl <- control_parsnip()

  expect_equal(
    condense_control(ctrl, ctrl),
    ctrl
  )

  ctrl$allow_par <- TRUE
  ctrl$catch <- TRUE

  expect_equal(
    condense_control(ctrl, control_parsnip()),
    control_parsnip(catch = TRUE)
  )

  ctrl$anotherone <- 2
  expect_snapshot(error = TRUE,
    condense_control(control_parsnip(), ctrl)
  )
})