tests/testthat/test-vdiffr_check_predictions.R

In see: Model Visualisation Toolbox for 'easystats' and 'ggplot2'

skip_on_cran()

# Snapshot tests for check_model() plots
# These tests verify that diagnostic plots render consistently across versions.
# Related to #236 (snapshot tests) and #420 (large dataset performance).

# Helper function for reproducible vdiffr tests
expect_doppelganger_with_seed <- function(title, fig, seed = 123) {
  set.seed(seed)
  vdiffr::expect_doppelganger(title = title, fig = fig)
}

test_that("plot.see_check_predictions() renders correctly", {
  skip_if_not_installed("performance")
  skip_if_not_installed("see")
  skip_on_cran()

  data(mtcars)
  model <- lm(mpg ~ disp, data = mtcars)

  expect_doppelganger_with_seed(
    title = "check_predictions_no_range",
    fig = plot(performance::check_predictions(model))
  )

  expect_doppelganger_with_seed(
    title = "check_predictions_with_range",
    fig = plot(performance::check_predictions(model, check_range = TRUE))
  )
})