tests/testthat/test_parse_term.R

In bbuchsbaum/fmrireg: R package for the anlysis of fmri data

library(fmrireg)

test_that("parse_term handles multiple variables and complex expressions", {
  vars <- list(quote(x), quote(log(y + 1)), quote(Poly(rt, 3)))
  res <- fmrireg:::parse_term(vars, "covariate")
  expect_equal(res$term, c("x", "log(y + 1)", "Poly(rt, 3)"))
  expect_equal(res$label, "covariate(x,log(y + 1),Poly(rt, 3))")
})