tests/testthat/test-levels.R

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

test_that("rbind() works", {
  term <- term(x = 1)
  term_df <- data.frame(term = term)
  expect_identical(rbind(term_df, term_df), data.frame(term = c(term, term)))
})

test_that("rbind() works", {
  term <- term_rcrd("x[1]")
  term_df <- data.frame(term = term)
  expect_identical(rbind(term_df, term_df), data.frame(term = c(term, term)))
})