tests/testthat/test-lookup.R

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

context("test_lookup - unit tests")

test_that("lookup('ark:/57799/b9j69h') returns expected minid", {
  load("demo-config.rda")
  server <- server(demo_config)
  expect_identical(
    identifier(lookup("ark:/57799/b9j69h", server = server)),
    "ark:/57799/b9j69h")
})

test_that("lookup('minid:b9j69h') returns expected minid", {
  load("demo-config.rda")
  server <- server(demo_config)
  expect_identical(
    identifier(lookup("minid:b9j69h", server = server)),
    "ark:/57799/b9j69h")
})

test_that("lookup(checksum) returns expected minid", {
  load("demo-config.rda")
  server <- server(demo_config)
  checksum <- "6484968f81afac84857d02b573b0d589fb2f9582a2b920572830dc5781e0a53c"
  expect_identical(
    identifier(lookup(checksum, server = server)),
    "ark:/57799/b9j69h")
})

# TODO - add test for file-based lookup after I mint a minid for one