tests/testthat/test-npdims.R

In poissonconsulting/term: Create, Manipulate and Query Parameter Terms

test_that("npdims.term", {
  rlang::local_options(lifecycle_verbosity = "quiet")
  expect_identical(
    npdims(new_term(character(0))),
    rlang::set_names(integer(0), character(0))
  )
  expect_identical(
    npdims(new_term(c(
      "alpha[1]", "alpha[2]", "beta[1,1]", "beta[2,1]",
      "beta[1,2]", "beta[2,2]", "sigma"
    ))),
    c(alpha = 1L, beta = 2L, sigma = 1L)
  )

  lifecycle::expect_defunct(npdims(new_term(c("alpha[1]", "alpha[3]", "beta[1,1]", "beta[2,1]")), terms = TRUE))

  expect_error(npdims(NA_term_), "^`x` must not have any missing values[.]$", class = "chk_error")
})