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")))


})