tests/testthat/test-sleep.R

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

## reset at 2021-06-25 13:50:37 CEST
## or 2021-06-25 11:50:37 UTC
library(httr)

test_that("test .trigger_sleep", {
  skip_if(!file.exists("../testdata/rate_limit_res.RDS"))
  r <- readRDS("../testdata/rate_limit_res.RDS")
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:30", tz = "UTC"), verbose = TRUE, really_sleep = FALSE, tzone = "UTC")
  })
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:30", tz = "UTC"), verbose = FALSE, really_sleep = FALSE, tzone = "UTC")
  })
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:33", tz = "UTC"), verbose = TRUE, really_sleep = TRUE, tzone = "UTC")
  })
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:36", tz = "UTC"), verbose = FALSE, really_sleep = TRUE, tzone = "UTC")
  })
})

test_that("disable adaptive sleeping if ref_time is later than reset_time in r, #213", {
  skip_if(!file.exists("../testdata/rate_limit_res.RDS"))
  r <- readRDS("../testdata/rate_limit_res.RDS")
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:40", tz = "UTC"), verbose = TRUE, really_sleep = FALSE, tzone = "UTC")
  })
  expect_snapshot({
    academictwitteR:::.trigger_sleep(r, ref_time = as.POSIXlt("2021-06-25 11:50:40", tz = "UTC"), verbose = FALSE, really_sleep = FALSE, tzone = "UTC")
  })
})