tests/testthat/test-zenodo.R

In inbo/n2khab: Providing Preprocessed Reference Data for Flemish Natura 2000 Habitat Analyses

test_that("download_zenodo() works for a single-file record", {
  skip_if_offline()
  zenodo_dir <- tempfile()
  withr::local_file(zenodo_dir)
  dir.create(zenodo_dir)
  expect_snapshot(
    download_zenodo(doi = "10.5281/zenodo.3784149", path = zenodo_dir)
  )
})

test_that("download_zenodo() works for a GitHub code record", {
  skip_if_offline()
  zenodo_dir <- tempfile()
  withr::local_file(zenodo_dir)
  dir.create(zenodo_dir)
  expect_snapshot(
    download_zenodo(doi = "10.5281/zenodo.7335805", path = zenodo_dir)
  )
})

test_that("download_zenodo() works for a multi-file record", {
  skip_if_offline()
  zenodo_dir <- tempfile()
  withr::local_file(zenodo_dir)
  dir.create(zenodo_dir)
  expect_snapshot(
    download_zenodo(
      doi = "10.5281/zenodo.4420858",
      path = zenodo_dir
    )
  )
})

test_that("download_zenodo() can work sequentially for a multi-file record", {
  skip_if_offline()
  zenodo_dir <- tempfile()
  withr::local_file(zenodo_dir)
  dir.create(zenodo_dir)
  expect_snapshot(
    download_zenodo(
      doi = "10.5281/zenodo.4420858",
      path = zenodo_dir,
      parallel = FALSE
    )
  )
})