tests/testthat/test-pl_status.R

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'))
})

Try the pleiades package in your browser

Any scripts or data that you put into this service are public.

pleiades documentation built on Oct. 23, 2020, 8:07 p.m.