tests/testthat/test-plot_quantile_coverage.R

In epiforecasts/scoringutils: Utilities for Scoring and Assessing Predictions

test_that("plot_quantile_coverage() works as expected", {
  coverage <- example_quantile %>%
    na.omit() %>%
    as_forecast() %>%
    get_coverage(by = c("model", "quantile_level"))

  p <- plot_quantile_coverage(coverage)
  expect_s3_class(p, "ggplot")
  skip_on_cran()
  suppressWarnings(vdiffr::expect_doppelganger("plot_quantile_coverage", p))
})