check when issues is an epirange

Co-authored-by: Dmitry Shemetov <dshemetov@ucdavis.edu>

Author: nmdefries

tests/testthat/test-utils.R

@@ -58,4 +58,9 @@ test_that("check_is_cachable can handle both str and date inputs of various leng
   epidata_call$params$as_of <- NULL
   epidata_call$params$issues <- c(as.Date("2022-01-01"), as.Date("2022-02-01"))
   expect_no_error(check_is_cachable(epidata_call, fetch_args))
+  
+  # issues epirange
+  epidata_call$params$as_of <- NULL
+  epidata_call$params$issues <- epirange(as.Date("2022-01-01"), as.Date("2022-02-01"))
+  expect_no_error(check_is_cachable(epidata_call, fetch_args))
 })