Update tests/testthat/test-epidatacall.R

dshemetov · brookslogan · web-flow · commit 2f9464ae0f28 · 2023-05-26T17:53:50.000-07:00
Co-authored-by: brookslogan &lt;lcbrooks@cs.cmu.edu&gt;
diff --git a/tests/testthat/test-epidatacall.R b/tests/testthat/test-epidatacall.R
@@ -39,7 +39,7 @@ test_that("fetch_tbl warns on non-success", {
     # see generation code above
     readRDS(testthat::test_path("data/test-classic.rds")) %>%
     jsonlite::fromJSON() %>%
-    `[[<-`("message", "* This is a warning with a leading asterisk and {braces} to make sure we don't have bulleting/glue bugs.")
+    `[[<-`("message", artificial_warning)
   with_mocked_bindings(
     {
       expect_warning(epidata_call %>% fetch_tbl(),

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ test_that("fetch_tbl warns on non-success", {`
`39`	`39`	`# see generation code above`
`40`	`40`	`readRDS(testthat::test_path("data/test-classic.rds")) %>%`
`41`	`41`	`jsonlite::fromJSON() %>%`
`42`		- `[[<-`("message", "* This is a warning with a leading asterisk and {braces} to make sure we don't have bulleting/glue bugs.")
	`42`	+ `[[<-`("message", artificial_warning)
`43`	`43`	`with_mocked_bindings(`
`44`	`44`	`{`
`45`	`45`	`expect_warning(epidata_call %>% fetch_tbl(),`