fix: another post-API rollout bit of code

Author: dsweber2

tests/testthat/test-epidatacall.R

@@ -81,21 +81,20 @@ test_that("fetch_tbl warns on non-success", {
     .package = "httr"
   )
   # TODO: Turn these tests back on, when the API is fully online
-  # Remove on 2023-06-21
-  # artificial_warning <- "* This is a warning with a leading asterisk and {braces} to make sure we don't have bulleting/glue bugs."
-  # debug_triplet <- readRDS(testthat::test_path("data/test-classic.rds")) %>%
-  #   jsonlite::fromJSON() %>%
-  #   `[[<-`("message", artificial_warning)
-  # local_mocked_bindings(
-  #   # see generation code above
-  #   fromJSON = function(...) debug_triplet,
-  #   .package = "jsonlite"
-  # )
+  artificial_warning <- "* This is a warning with a leading asterisk and {braces} to make sure we don't have bulleting/glue bugs."
+  debug_triplet <- readRDS(testthat::test_path("data/test-classic.rds")) %>%
+    jsonlite::fromJSON() %>%
+    `[[<-`("message", artificial_warning)
+  local_mocked_bindings(
+    # see generation code above
+    fromJSON = function(...) debug_triplet,
+    .package = "jsonlite"
+  )
 
-  # expect_warning(epidata_call %>% fetch_tbl(),
-  #   regexp = paste0("epidata warning: ", artificial_warning),
-  #   fixed = TRUE
-  # )
+  expect_warning(epidata_call %>% fetch_tbl(),
+    regexp = paste0("epidata warning: ", artificial_warning),
+    fixed = TRUE
+  )
 })
 
 test_that("classic only fetch", {