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

In 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")))
})