tests/testthat/test-new-term-rcrd.R

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

test_that("new_term_rcrd", {
  expect_identical(
    new_term_rcrd(),
    structure(list(par = character(0), dim = list()), class = c(
      "term_rcrd",
      "vctrs_rcrd", "vctrs_vctr"
    ))
  )
  expect_identical(
    new_term_rcrd(data.frame(
      par = c("x", "x", "y"), dim = I(list(1, 2, c(2, 2))),
      stringsAsFactors = FALSE
    )),
    structure(list(par = c("x", "x", "y"), dim = list(1, 2, c(
      2,
      2
    ))), class = c("term_rcrd", "vctrs_rcrd", "vctrs_vctr"))
  )
})