tests/testthat/test-as-data-frame.R

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

test_that("as.data.frame.term_rcrd", {
  expect_identical(
    as.data.frame(term_rcrd()),
    data.frame(par = character(), dim = I(list()), stringsAsFactors = FALSE)
  )
  expect_identical(
    as.data.frame(term_rcrd("a")),
    data.frame(par = "a", dim = I(list(1L)), stringsAsFactors = FALSE)
  )
})