tests/testthat/test-is.R

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

test_that("is_term", {
  expect_false(is_term("parameter[1]"))
  expect_true(is_term(new_term(character(0))))
  expect_true(is_term(new_term("parameter[1]")))
})

test_that("is_term_rcrd", {
  expect_false(is_term_rcrd("parameter[1]"))
  expect_true(is_term_rcrd(term_rcrd(character(0))))
  expect_true(is_term_rcrd(term_rcrd("parameter[1]")))
})