tests/testthat/test-01_rdrop-auth.R

In rdrop2: Programmatic Interface to the 'Dropbox' API

context("authorization")
test_that("Able to authenticate from saved RDS token", {
  skip_on_cran()

  # read cached token and check its class
  expect_is(drop_auth(rdstoken = "token.rds"), "Token2.0")
})


# drop_acc
# ......................................

context("Testing that acc info works correctly")

test_that("Account information works correctly", {
  skip_on_cran()

  acc_info <- drop_acc()
  # expect list
  expect_is(acc_info, "list")
  # name element should be its own list
  expect_is(acc_info$name, "list")
})