tests/testthat/test-as_search.R

In rOpenGov/rtimes: Client for New York Times 'APIs'

context("as_search")

key <- Sys.getenv("NYTIMES_AS_KEY")

test_that("returns the correct stuff", {
  vcr::use_cassette("as_search", {
    a <- as_search(q = "bailout", begin_date = "20081001", end_date = '20081201')
    Sys.sleep(1)
    expect_is(a, "list")
    expect_is(a$copyright, "character")
    expect_match(a$copyright, "Copyright")
    expect_is(a$meta, "data.frame")
    expect_is(a$data, "tbl_df")
    expect_is(a$data$web_url, "character")
  })

  vcr::use_cassette("as_search_facet_dates_fl", {
    b <- as_search(q = "bailout", facet_field = 'section_name', begin_date = "20081001", 
       end_date = '20081201', fl = 'word_count')
    expect_is(b, "list")
    expect_is(b$meta, "data.frame")
    expect_is(b$data, "tbl_df")
    expect_named(b, c("copyright", "meta", "data", "facets"))
    expect_named(b$data, c("word_count", "score"))
  })

  vcr::use_cassette("as_search_fq", {
    d <- as_search(q = "money", fq = 'The New York Times')
    e <- as_search(q = "money", fq = 'news_desk:("Sports" "Foreign")')
    
    expect_is(d, "list")
    expect_is(d$meta, "data.frame")
    expect_is(e$data, "tbl_df")
    
    expect_is(e, "list")
    expect_is(e$meta, "data.frame")
    expect_is(e$data, "tbl_df")
  })
})

test_that("fails well", {
  skip_on_cran()
  
  expect_error(as_search(key = key), "is missing, with no default")
  expect_error(as_search(q = "bailout", end_date = "tttt", key = key))
})