tests/testthat/test-block.R

In rtweet: Collecting Twitter Data

test_that("blocking and unblocking users", {
  skip_if_offline()
  pf <- user_block("s_hesz")
  expect_equal(httr::status_code(pf), 200L)

  # unblocking
  pf <- user_unblock("s_hesz")
  expect_equal(httr::status_code(pf), 200L)
})