if (identical(Sys.getenv("NOT_CRAN", unset = "true"), "true")) {
  test_that("Figshare API download works", {
    data_list <- get_figshare(return_list = TRUE)

    testthat::expect_type(data_list, "list")

    get_figshare(file_name = "Achilles_common_essentials.csv")

    testthat::expect_true(
      file.exists(
        file.path(
          system.file("extdata", package = "gimap"),
          "Achilles_common_essentials.csv"
        )
      )
    )
  })
}