tests/testthat/test-access-level.R

context("test-access-level")

test_that("api_access_level works", {
  token <- readRDS("twitter_tokens")
  a <- api_access_level(token)
  expect_true(is.character(a) && length(a) == 1)
})
nicolofcavalli/rtweet documentation built on Jan. 26, 2020, 1 a.m.