tests/testthat/test-is_init_param.R

context("is_init_param")

test_that("use", {

  testthat::expect_false(is_init_param(create_alpha_param(id = NA)))
  testthat::expect_true(is_init_param(create_alpha_param(id = 1)))
})

test_that("abuse", {

  testthat::expect_error(
    is_init_param("nonsense"),
    "'x' must be a parameter"
  )

})
richelbilderbeek/beautier documentation built on Nov. 6, 2023, 10:20 a.m.