# This test was deactivated because calls to the CHIRPS website would fail.
# TODO: reactivate this test
# test_that(".get_chirps works", {
#   skip_on_cran()
#
#   expect_error(get_chirps(1970))
#   gc <- get_chirps(years = 2010)
#   expect_silent(.check_resource_fun(gc))
#   fps <- gc(aoi)
#   expect_silent(fps <- .check_footprints(fps))
#   expect_equal(nrow(fps), 12)
# })