Added a unit test that checks that interval_coverage_deviation (the m…

…etric giving an error originally) is not NA
epiforecasts · Jan 5, 2024 · 0b6853f · 0b6853f
1 parent 15fce2b
commit 0b6853f
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-utils_data_handling.R b/tests/testthat/test-utils_data_handling.R
@@ -109,6 +109,16 @@ test_that("sample_to_quantiles works", {
 
 })
 
+test_that("sample_to_quantiles issue 557 fix", {
+
+  out <- example_integer %>%
+    sample_to_quantile(
+      quantiles = c(0.01, 0.025, seq(0.05, 0.95, 0.05), 0.975, 0.99)
+    ) %>%
+    score()
+
+  expect_equal(any(is.na(out$interval_coverage_deviation)), FALSE)
+})
 
 
 test_that("sample_to_range_long works", {