tests/testthat/test-post-message.R

In rtweet: Collecting Twitter Data

test_that("post_message works", {
  skip("requires manual testing")
  expect_message(
    rt <- post_message(paste("Testing", Sys.time()), user = "Lluis_Revilla"),
    "Your DM has been posted!"
  )
  expect_equal(httr::status_code(rt), 200L)

})