tests/testthat/test-list_volume_links.R

In databraryr: Interact with the 'Databrary.org' API

# list_volume_links ---------------------------------------------------------
test_that("list_volume_links returns data.frame or is NULL", {
  expect_true((is.null(list_volume_links())) ||
                 ("data.frame" %in% class(list_volume_links())))
})

test_that("list_volume_links rejects bad input parameters", {
  expect_error(list_volume_links(vol_id = "a"))
  expect_error(list_volume_links(vol_id = c(1,2)))
  expect_error(list_volume_links(vol_id = TRUE))
  expect_error(list_volume_links(vol_id = list(a=1, b=2)))
  expect_error(list_volume_links(vol_id = -1))
  
  expect_error(list_volume_links(vb = -1))
  expect_error(list_volume_links(vb = 3))
  expect_error(list_volume_links(vb = "a"))
  expect_error(list_volume_links(vb = list(a=1, b=2)))
  
  expect_error(list_volume_links(rq = "a"))
  expect_error(list_volume_links(rq = -1))
  expect_error(list_volume_links(rq = c(2,3)))
  expect_error(list_volume_links(rq = list(a=1, b=2)))
})