tests/testthat/test-init_param.R

context("init_param")

test_that("use", {

  alpha_param <- create_alpha_param()
  testthat::expect_false(is_init_param(alpha_param))
  alpha_param <- init_param(alpha_param, id = 1)
  testthat::expect_true(is_init_param(alpha_param))
})
ropensci/beautier documentation built on April 2, 2024, 5:01 a.m.