tests/testthat/test_viaf_get.R

context("testing viaf_get")

a <- viaf_get("111108524")

test_that("viaf_get returns correct class", {
  expect_is(a, "list")
  expect_is(a$Wikipedia, "character")
})
njahn82/viaf documentation built on May 23, 2019, 7:07 p.m.