tests/testthat/test_editions.R

context("Test edition metadata retrieval")

test_that("Basic edition retrieval works", {
  skip_on_cran()
  results <- guardian_editions("test", "uk")
  expect_equal(length(results), 4)
  expect_equal(names(results), c("status", "userTier", "total", "results"))
})

Try the rdian package in your browser

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

rdian documentation built on May 2, 2019, 3:26 p.m.