tests/testthat/test-get_user_timeline.R

In academictwitteR: Access the Twitter Academic Research Product Track V2 API Endpoint

## require(httptest)
## start_capturing(simplify = FALSE)
## ori_test <- "../testdata/commtwitter/"
## user_ids <- unique(bind_tweets(ori_test, verbose = FALSE)$author_id)
## res <- get_user_timeline(user_ids, "2021-05-30T14:12:24.000Z", "2021-06-02T21:15:24.000Z")
## saveRDS(res, "../testdata/user_timeline.RDS")
## res2 <- get_user_timeline("45648666", "2021-05-30T14:12:24.000Z", "2021-06-02T21:15:24.000Z")
## stop_capturing()

with_mock_api({
  test_that("expected behavior, #153", {
    skip_if(!dir.exists("api.twitter.com"))
    ori_test <- "../testdata/commtwitter/"
    user_ids <- unique(bind_tweets(ori_test, verbose = FALSE)$author_id)
    res <- get_user_timeline(user_ids, "2021-05-30T14:12:24.000Z", "2021-06-02T21:15:24.000Z", verbose = FALSE)
    prev_res <- readRDS("../testdata/user_timeline.RDS")
    expect_equal(nrow(res), nrow(prev_res))
    res2 <- get_user_timeline("45648666", "2021-05-30T14:12:24.000Z", "2021-06-02T21:15:24.000Z", verbose = FALSE)
    expect_lt(nrow(res2), 20) ## no page flipping
    expect_error(z <- capture_warnings(get_user_timeline("45648666", "2021-05-30T14:12:24.000Z", "2021-06-02T21:15:24.000Z")), NA)
    expect_false(identical(z, character(0)))
  })
})