tests/testthat/test-utils.R

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

test_that("c.term", {
  expect_error(c(NA_term_, recursive = TRUE))
  expect_identical(
    c(NA_term_, "b", "a[1]", ""),
    c(NA, "b", "a[1]", "")
  )
  expect_identical(
    c(NA_character_, "b", "a[1]", ""),
    c(NA_character_, "b", "a[1]", "")
  )
})