tests/testthat/test_tags.R

context("Test tag retrieval")

test_that("Basic tag queries can be executed", {
  skip_on_cran()
  results <- guardian_tags(query = "green", api_key = "test")
  expect_equal(length(results), 8)
  expect_equal(names(results), c("status", "userTier", "total", "startIndex", "pageSize", "currentPage", 
                                "pages", "results"))
})

test_that("More complex tag queries can be executed", {
  skip_on_cran()
  results <- guardian_tags(query = "green", section = "technology", api_key = "test")
  expect_equal(length(results), 8)
  expect_equal(names(results), c("status", "userTier", "total", "startIndex", "pageSize", "currentPage", 
                                 "pages", "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.