Update tests/testthat/test-epidatacall.R

Co-authored-by: brookslogan <[email protected]>

Author: dshemetov

tests/testthat/test-epidatacall.R

@@ -165,7 +165,7 @@ test_that("fetch classic works", {
 
   # make sure the return from this is a list
   fetch_out <- epidata_call %>% fetch()
-  expect_true(is.list(fetch_out))
+  expect_true(inherits(fetch_out, "list"))
 })
 
 test_that("create_epidata_call basic behavior", {