tests/testthat/test-logout_db.R

In databraryr: Interact with the 'Databrary.org' API

test_that("logout_db rejects bad input parameters", {
  expect_error(logout_db(vb = -1))
  expect_error(logout_db(vb = 3))
  expect_error(logout_db(vb = "a"))
  expect_error(logout_db(vb = c(TRUE, FALSE)))
})

test_that("logout_db returns logical", {
  expect_true(is.logical(logout_db()))
})

# Actually log out
logout_db()