tests/testthat/test-summary_predinfo.R

In GlenMartin31/pmupdate: Prediction Model Validation and Updating

test_that("expected output form of pred_input_info", {
  predinfo_test1 <- pred_input_info(model_type = "logistic",
                                    model_info = data.frame("Intercept" = -2,
                                                            "Age" = 5,
                                                            "Age_squared" = 0.05,
                                                            "Age_logged" = 0.06))

  expect_snapshot(summary(predinfo_test1))
})