tests/testthat/test-direct_messages.R

In mkearney/rtweet: Collecting Twitter Data

test_that("direct_messages works", {
  dm <- direct_messages()[[1]]
  expect_type(dm, "list")
  expect_length(dm, 2L)
  expect_named(dm, c("events", "apps"))
  
  expect_true(is.data.frame(dm$events))
})

test_that("old functions give informative errors", {
  expect_error(direct_messages_received(), "no longer exists")
  expect_error(direct_messages_sent(), "no longer exists")
})