tests/testthat/test-valid-term.R

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

test_that("valid_term character", {
  expect_error(valid_term(NA_character_), "`x` must inherit from S3 class 'term'[.]",
    class = "chk_error"
  )
})

test_that("valid_term term", {
  expect_identical(valid_term(new_term()), logical(0))
  expect_identical(valid_term(new_term(NA_character_)), NA)
  expect_identical(valid_term(new_term(c("a", NA_character_))), c(TRUE, NA))
  expect_identical(
    valid_term(new_term(c("a", "a [3]", " b [ 1  ] ", "c[1]"))),
    rep(TRUE, 4)
  )
  expect_identical(
    valid_term(new_term(c("c[1,1]", "c[10]", "c[10,9,8]"))),
    rep(TRUE, 3)
  )
  expect_identical(
    valid_term(new_term(c("", "a b", "a[1]b", "a[0]", "b[1,]", "c[]", "d[1][2]"))),
    rep(FALSE, 7L)
  )
  expect_identical(
    valid_term(new_term(c("c[1 1]", "c[01,1]"))),
    rep(FALSE, 2L)
  )
})

test_that("valid_term term_rcrd", {
  expect_identical(valid_term(new_term_rcrd()), logical(0))
  expect_identical(valid_term(as_term_rcrd(new_term(NA_character_))), NA)
  expect_identical(valid_term(as_term_rcrd(new_term(c("a", NA_character_)))), c(TRUE, NA))
  # expect_identical(
  #   valid_term(as_term_rcrd(new_term(c("a", "a [3]", " b [ 1  ] ", "c[1]")))),
  #   rep(TRUE, 4)
  # )
  expect_identical(
    valid_term(new_term(c("c[1,1]", "c[10]", "c[10,9,8]"))),
    rep(TRUE, 3)
  )
  expect_identical(
    valid_term(new_term(c("", "a b", "a[1]b", "a[0]", "b[1,]", "c[]", "d[1][2]"))),
    rep(FALSE, 7L)
  )
  expect_identical(
    valid_term(new_term(c("c[1 1]", "c[01,1]"))),
    rep(FALSE, 2L)
  )
})