tests/testthat/test-getToken.R

In vectorsurvR: Data Access and Analytical Tools for 'VectorSurv' Users

#token <- getToken()
#
#test_that("getToken returns a non-empty token with correct credentials", {
#
#  expect_true(!is.null(token))
#  expect_type(token, "character")
#
#})
#
#
#
#
#test_that("getToken returns error if credentials are incorrect", {
#
#  expect_error(getToken(), "Check username and password")
#})
#