tests/testthat/test-get-location.R

In bheavner/minidtools: Working with the BD2K Minimal Viable Identifier

context("test_get_location - unit tests")

test_that("get_location('ark:/57799/b9j69h') returns expected value", {
  load("demo-config.rda")
  server <- server(demo_config)
  expect_message(get_location("ark:/57799/b9j69h"), server = server)
  expect_identical(
    get_location("ark:/57799/b9j69h", server = server),
    "https://nih-commons.s3.amazonaws.com/misc/agr-example.tgz")
})

test_that("get_location(minid) returns expected value", {
  load("demo.rda")
  expect_identical(get_location(demo),
                   "https://nih-commons.s3.amazonaws.com/misc/agr-example.tgz")
})