add test

epiforecasts · Oct 30, 2024 · cf10925 · cf10925
1 parent 36a0040
commit cf10925
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-get-forecast-type.R b/tests/testthat/test-get-forecast-type.R
@@ -21,6 +21,11 @@ test_that("get_forecast_type() works as expected", {
     get_forecast_type(test),
     "Input is not a valid forecast object",
   )
+
+  # get_forecast_type() should still work even if a new class is added
+  testclassobject <- data.table::copy(example_quantile)
+  class(testclassobject) <- c("something", class(testclassobject))
+  expect_equal(get_forecast_type(testclassobject), "quantile")
 })