tests/testthat/test_sections.R

context("Test section metadata retrieval")

test_that("Basic section retrieval works", {
  skip_on_cran()
  results <- guardian_sections("test", "business")
  expect_equal(length(results), 4)
  expect_equal(names(results), c("status", "userTier", "total", "results"))
})
Ironholds/rdian documentation built on May 7, 2019, 6:42 a.m.