tests/testthat/test-pkg-ivreg.R

In performance: Assessment of Regression Models Performance

test_that("Issue #530 from the `modelsummary` repo", {
  skip_if_not_installed("ivreg")
  # for ivreg diagnostics
  data(mtcars)
  iv_model <- suppressMessages(ivreg::ivreg(mpg ~ qsec + cyl + drat | disp | wt, data = mtcars))
  out <- expect_silent(model_performance(iv_model))
  expect_snapshot(out)
})