tests/testthat/test-pl_status.R

In ropensci/pleiades: Interface to the 'Pleiades' 'Archeological' Database

context("pl_status")

test_that("pl_status works", {
  skip_on_cran()

  vcr::use_cassette("pl_status", {
    aa <- pl_status()
  })

	expect_is(aa, 'list')
	expect_named(aa, c('num_places', 'num_locations', 'num_names'))
})