test_that("Can handle four variables", {
  mod <- Framingham |>
    model_train(TenYearCHD ~ age + sex + diabetes + BPMeds,
             family="binomial")
  P <- model_plot(mod)
  expect_snapshot_file(gg_in_tmp_png(P), "four-facets.png")
})