tests/testthat/test-http.R

In rtweet: Collecting Twitter Data

test_that("TWIT_paginte_max_id respects max_id and since_id", {

  simple_timeline <- function(...) {
    r <- TWIT_paginate_max_id(NULL, "/1.1/statuses/user_timeline",
                              list(screen_name = "JustinBieber"),
                              n = 100,
                              ...
    )
    tweets_with_users(r)[1:10]
  }
  vcr::use_cassette("http1", {
    base <- simple_timeline()
  })

  vcr::use_cassette("http2", {
    # check that we can ask for older tweets
    older <- simple_timeline(max_id = base)
  })
  expect_true(min(format_date(older$created_at)) < min(format_date(base$created_at)))

  # asking for newer tweets should give back the original data
  vcr::use_cassette("http3", {
    base2 <- simple_timeline(since_id = older)
  })
  expect_length(intersect(base$id, base2$id), nrow(base))
})

test_that("TWIT_paginte_cursor respects cursor", {

  vcr::use_cassette("http4", {
    page1 <- get_followers("JustinBieber")
  })
  vcr::use_cassette("http5", {
    page2 <- get_followers("JustinBieber", cursor = page1)
  })
  expect_length(intersect(page1$from_id, page2$from_id), 0)
})