tests/testthat/test_query.R

In jhpoelen/reston: a biodiversity dataset tracker

context("query for versions")

first_query_hash <- "hash://sha256/2a5de79372318317a382ea9a2cef069780b852b01210ef59e06b640a3539cb5a"

test_that("a file can be retrieved from all defaults query", {
  some_version <- query()
  expect_equal(some_version, "hash://sha256/c253a5311a20c2fc082bf9bac87a1ec5eb6e4e51ff936e7be20c29c8e77dee55")
})

test_that("a file can be retrieved from default hash2url query", {
  some_version <- query(first_query_hash)
  expect_equal(some_version, "hash://sha256/c253a5311a20c2fc082bf9bac87a1ec5eb6e4e51ff936e7be20c29c8e77dee55")
})

test_that("a file can be retrieved from internet archive", {
  some_version <- query_internet_archive(first_query_hash)
  expect_equal(some_version, "hash://sha256/c253a5311a20c2fc082bf9bac87a1ec5eb6e4e51ff936e7be20c29c8e77dee55")
})

test_that("a file can be retrieved from deeplinker", {
  some_version <- query_deep_linker(first_query_hash)
  expect_equal(some_version, "hash://sha256/c253a5311a20c2fc082bf9bac87a1ec5eb6e4e51ff936e7be20c29c8e77dee55")
})

test_that("a file can be retrieved from deeplinker", {
  some_version <- query_deep_linker(first_query_hash)
  expect_equal(some_version, "hash://sha256/c253a5311a20c2fc082bf9bac87a1ec5eb6e4e51ff936e7be20c29c8e77dee55")
})

test_that("na is returned on invalid query hash", {
  some_version <- query("not:a:hashuri")
  expect_equal(some_version, NA_character_)
})