tests/testthat/test-get-title.R

context("test_get_title - unit tests")

test_that("get_title('ark:/57799/b9j69h') returns expected value", {
  load("demo-config.rda")
  server <- server(demo_config)
  expect_message(get_title("ark:/57799/b9j69h"), server = server)
  expect_identical(
    get_title("ark:/57799/b9j69h", server = server),
    "AGR Data set with identifier-based references to data in cloud storage")
})

test_that("get_title(minid) returns expected value", {
  load("demo.rda")
  expect_identical(get_title(demo),
                   paste0("AGR Data set with identifier-based references ",
                          "todata in cloud storage"))
})
bheavner/minidtools documentation built on Aug. 3, 2020, 4:05 a.m.