tests/testthat/test-display_models.R

In JSmediation: Mediation Analysis Using Joint Significance

test_that("display_models does not throw an error when used as intented", {
  data(ho_et_al)
  ho_et_al$condition_c <- build_contrast(ho_et_al$condition,
                                         "Low discrimination",
                                         "High discrimination")
  my_model <-
    mdt_simple(data = ho_et_al,
               IV = condition_c,
               DV = hypodescent,
               M = linkedfate)

  expect_silent(display_models(my_model))
  })