tests/testthat/test-print.R

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

test_that("print", {
  verify_output("out/print-term.txt", {
    term()

    term(alpha = 2, beta = c(2, 2), "sigma")

    term(
      "alpha[1]", "sigma", "alpha[2]", "beta[1,1]", "beta[2,1]",
      "beta[1,2]", "beta[2,2]"
    )

    new_term(c("with space", ""))

    term("r[")

    term("r  [ 1  ,2  ]")
  })


  verify_output("out/print-term-rcrd.txt", {
    new_term_rcrd()

    as_term_rcrd(term(alpha = 2, beta = c(2, 2), "sigma"))
  })
})