tests/testthat/test-followers.R

In rtweet: Collecting Twitter Data

test_that("get_followers returns expected data", {
  
  vcr::use_cassette("get_followers", {
    users <- get_followers("KFC")
  })
  
  # expect_s3_class(users, "data.frame")
  expect_named(users, c("from_id", "to_id"))
  expect_equal(nrow(users), 5000)
  
  expect_type(next_cursor(users), "character")
})


vcr::use_cassette("get_followers2", {
  test_that("n = Inf works", {
    expect_error(get_followers("_R_Foundation", n = Inf, 
                                      retryonratelimit = FALSE), NA)
  })
})