tests/testthat/test-post-message.R

In mkearney/rtweet: Collecting Twitter Data

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