tests/testthat/test-quantiles_to_long.R

In epiforecasts/forecast.vocs: Forecast Case and Sequence Notifications using Variant of Concern Strain Dynamics

test_that("Can convert a posterior to long format successfully", {
  p <- fv_example(type = "posterior")
  long <- quantiles_to_long(p)
  expect_true(all(c("quantile", "prediction") %in% names(long)))
  expect_type(long$quantile, "double")
  expect_equal(unique(long$quantile), c(0.05, 0.20, 0.80, 0.95))
  expect_type(long$prediction, "double")
})