tests/testthat/test-download.R

In ebvcube: Working with netCDF for Essential Biodiversity Variables

# basic tests for ebv_download ----
#check url
portal_down <- ebv_i_check_url('https://portal.geobon.org/api/v1/datasets')

if(portal_down){
  #expect an error
  expect_error(ebv_download(27, dir, verbose = FALSE))
  }else{
  #run 'normal' tests
  test_that("test ebv_download ID=numeric", {
    dir <- tempdir()
    data <- ebv_download(27, dir, verbose = FALSE)
    expect_true(basename(data) %in% list.files(dir))
    #clean
    unlink(dir, recursive=TRUE)
  })

  test_that("test ebv_download ID=doi", {
    dir <- tempdir()
    data <- ebv_download('10.25829/f2rdp4', dir, verbose = FALSE)
    expect_true(basename(data) %in% list.files(dir))
    #clean
    unlink(dir, recursive=TRUE)
  })

  test_that("test ebv_download ID=title 1", {
    dir <- tempdir()
    data <- ebv_download('Local bird diversity (cSAR/BES-SIM)', dir, verbose = FALSE)
    expect_true(basename(data) %in% list.files(dir))
    #clean
    unlink(dir, recursive=TRUE)
  })

  test_that("test ebv_download ID=title 2", {
    dir <- tempdir()
    data <- ebv_download("Global trends in biodiversity (BES-SIM PREDICTS)", dir, verbose = FALSE)
    expect_true(basename(data) %in% list.files(dir))
    #clean
    unlink(dir, recursive=TRUE)
  })

  test_that("test ebv_download DOIs in download overview table", {
    data <- ebv_download(verbose=FALSE)
    #check col names
    expect_equal(names(data), c("id","title","doi"))
    #check a view DOIs
    expect_equal(data[data$id==7, 'doi'], '10.25829/f2rdp4')
    expect_equal(data[data$id==42, 'doi'], '10.25829/tder31')
    expect_equal(data[data$id==28, 'doi'], '10.25829/bk5g87')
  })

}